Найти количество положительных элементов массива

Задача: 

В одномерном массиве найти количество положительных элементов.

Описание переменных: 

N - количество элементов в массиве;
arr - одномерный массив, содержащий N элементов;
i - переменная-счетчик;
count - счетчик для положительных элементов массива.

Алгоритм решения задачи: 

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

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

Программа на языке Паскаль: 

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.

Пример выполнения программы, определяющей количество положительных элементов массива.

-36 -19 -23 18 -25 45 -32 14 -45 3 
4