Cnt1_3 Ввести n чисел, подсчитать, сколько среди них положительных, отрицательных и чисел больших 10.

Var n, x, i, p, m, s:integer;

begin

writeln ('Введите n: ') ;

readln (n) ;

for i:=1 to n do

begin

readln (x) ;

if x<0 then m:=m+1;

if x>0 then p:=p+1;

if x>10 then s:=s+1;

end;

writeln ('Положительных: ', p) ;

writeln ('Отрицательных: ', m) ;

writeln ('Больше 10: ', s) ;

end.