Трифон
5 год назад
Дано N чисел найти количество чисел со значением больше 10
ОТВЕТЫ
Magdalena
Oct 24, 2020
Program murrrr;
Var c,a,n,x:integer;
Begin
read (n);
for a:=1 to N do begin read (x) if x>0
then c:=c+1; end;
write (c,' чисел>10');
end.
Var c,a,n,x:integer;
Begin
read (n);
for a:=1 to N do begin read (x) if x>0
then c:=c+1; end;
write (c,' чисел>10');
end.
390
Смежные вопросы:
