Есть такие массивы (НО ОНИ ЕСТЬ ТОЛЬКО В PASCAL ABC NET), которые называются динамические. Это такие массивы, длину которых ты назначаешь сам в теле программы. Здесь тебе нужно использовать именно их, так как ты заранее не знаешь, сколько будет положительных компонентов.
Пример объявления динамического массива:var a: array of integer; //вот это до begin
SetLength(a, b); //после begin, где b - количество элементов массива
Далее работаешь как с обычным массивом.
