Ответы и объяснения

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. 

5.0
1 оценка
1 оценка
Оцени!
Оцени!