Безотлагательно!!!!дана последовательность из 20 чисел,заполняются случайным образом -10;10.Во

Надобно написать программку ?

да

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])gt;=0 then b:=b+1else c:=c+1;end;writeln('положительных чисел ', b);writeln('отрицательных чисел ', c);if cgt;b then writeln('отрицательных чисел больше на ', c-b)else writeln('отрицательных чисел меньше на ',b-c)end.