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

можно это написать на алгоритмическом языке?

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] gt; 0 then count := count + 1; end; writeln; writeln(count); end.



 

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

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