Юрий
4 год назад
В компьютер вводятся 10 любых целых чисел. Нужно подсчитать и один раз напечатать, Как узнать сколько среди них положительных?
ОТВЕТЫ
Онисим
Oct 24, 2020
Var A,i,k:integer;
Begin
Write('Введите 10 целых чисел: ');
k:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A>0 then k:=k+1
End;
Write('Количество положительных: ',k);
End.
Begin
Write('Введите 10 целых чисел: ');
k:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A>0 then k:=k+1
End;
Write('Количество положительных: ',k);
End.
723
Смежные вопросы:
