Заполните одномерный массив случайными целыми числами: положительными, отрицательными,

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var d:=a.Where(t-gt;tgt;0).Count-a.Where(t-gt;tlt;0).Count;
  if dgt;0 then
    Writeln('Положительных чисел на ',d,' больше, чем отрицательных')
  else
    if dlt;0 then
      Writeln('Положительных чисел на ',-d,' меньше, чем отрицательных')
    else
      Writeln('Положительных и отрицательных чисел поровну')
end.

Пример
n= 15
-9 -46 -40 14 -40 40 -2 31 50 50 13 50 -20 -11 41
Положительных чисел на 1 больше, чем отрицательных