Ввести N разных чисел. Найти количество положительных чисел

Question

Информатика

Ванюша

27 сентября, 14:03

Ввести N разных чисел. Найти количество положительных чисел

+5

Ответы (1)

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

Мариан · Answer 1

Var

N, A, k:integer;

Begin

Write ('N = ') ;

ReadLn (N) ;

k:=0;

For N: = 1 to N do

Begin

Read (A) ;

if A>0 then k:=k+1;

End;

WriteLn ('Кол-во положительных, среди введённых: ', k) ;

End.