Ввести N разных чисел. Найти количество положительных чисел
Ввести N разных чисел. Найти количество положительных чисел
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы