//писал на скорую руку, должно все правильно работать var a,plus,minus,d:integer; c:array[1..50] of integer; begin plus:=0; minus:=0; for a:=1 to 50 do c[a]:=random(20)-10;//заполняем массив рандомо for a:=1 to 50 do//проверям условие if ((c[a]>0) and (c[a]<>0)) then plus:=plus + 1 else if ((c[a]<0) and (c[a]<>0)) then minus:= minus + 1; Writeln(plus,' ');//кол-во полож Writeln(minus,' ');//кол-во отриц if (plus>minus)then Writeln('Положительных') <span>else Writeln('Отрицательных'); </span>end.