Question

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

Answer 1

program p1;
var  a: array[1..1000] of integer;
var  n, i, c: integer;
begin 
readln(i);
c := 0;
for n := 1 to i do 
begin
readln(a[i]);   
if a[i] > 0 then c := c + 1;
end;
writeln(c);
end.