Var a:array[1..20] of integer;i,b,c:integer;beginb:=0;c:=0;for i:=1 to 20 do begina[i]:=random(-10,10);if (a[i])>=0 then b:=b+1else c:=c+1;end;writeln('положительных чисел ', b);writeln('отрицательных чисел ', c);if c>b then writeln('отрицательных чисел больше на ', c-b)else writeln('отрицательных чисел меньше на ',b-c)end.