дано натуральное число n и последовательность из n натуральных чисел. написать программу определяющую количество положительных членов в последовательности

Question

Информатика

Милица

30 августа, 16:10

дано натуральное число n и последовательность из n натуральных чисел. написать программу определяющую количество положительных членов в последовательности

+3

Ответы (1)

Знаете ответ на вопрос?

Ленин · Answer 1

Pascal

var

mas:array[1 ... 100] of integer;

sum, n, i:integer;

begin

readln (n) ;

sum:=0;

for i:=1 to n do

readln (mas[i]) ;

for i:=1 to n do

if mas[i]>0 then

sum:=sum+1;

writeln (sum) ;

end.