Задание

Составьте программу для подсчета количества положительных элементов массива.

var a: array[1..100] of integer;

m, k, s, r, i: integer;

begin

m := 100;

k := 0;

for i := 1 to m do read(a[i]);

for i := 1 to m do

if a[i] > 0 then k := k + 1;

writeln('Количество: ', k);

end.