Олипиада по информатике, задача про Гулливера​

Необходимо перебрать все элементы массива в цикле (обычно используется for) и сравнить их с нулем (с условного оператора if, вложенного в цикл). Если текущий элемент массива больше нуля, то следует увеличить на единицу счетчик положительных элементов, которому до цикла присваивается значение 0 (т. к. еще ни одного положительного элемента массива не найдено). После завершения цикла значением данного счетчика будет найденное количество положительных элементов массива.

В программе ниже в одном и том же цикле происходит заполнение массива случайными числами и последующая проверка каждого элемента на положительность. В программе можно было бы использовать два цикла: один - для заполнения массива, второй - для поиска количества положительных элементов. К сути данной задачи имеет отношение только второй цикл.

N - количество элементов в массиве;
arr - одномерный массив, содержащий N элементов;
i - переменная-счетчик;
count - счетчик для положительных элементов массива.
Пример выполнения программы, определяющей количество положительных элементов массива.
-36 -19 -23 18 -25 45 -32 14 -45 3 4
Программа на языке Паскаль: 

 

const N = 10; var arr: array[1..N] of integer; i: byte; count: byte; begin randomize; count := 0; for i:=1 to N do begin arr[i] := random(100) - 50; write(arr[i],' '); if arr[i] > 0 then count := count + 1; end; writeln; writeln(count); end.