Question

Дан массив целых чисел, заполненный с клавиатуры. Найти количество положительных элементов массива.
(При заполнении массива необходимо ввести положительные, отрицательные и нулевые элементы)

Answer 1

program mass_maxnech_kolkrat5;

const n=10;

var

i,sum:integer;

a:array[1..n] of integer;

begin

sum:=0;

for i:=1 to n do

begin

read(a[i]);

if (a[i]>0) then sum:=sum+a[i];

end;

write(sum);

end.