Ответы
Ответ дал:
0
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.
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
1 год назад
2 года назад
7 лет назад