Заполните одномерный массив случайными целыми числами: положительными, отрицательными, нулями. Определите, на сколько положительных чисел будет больше, чем отрицательных.

var i,p,m:integer;a: array[1..20] of integer;begin for i:=1 to 20 do begin a[i]:= random(-10,20); write(a[i],' '); if (a[i]>0) then p:=p+1 else if (a[i] < 0) then m := m+1;end;write('Положительных элементов: ');writeln(p);write('Отрицальных элементов: ');writeln(m);p := p - m;write('Положительных больше чем отрицательных на ');write(p);writeln(' элемента.')end.

А можно узнать, зачем это тут?

Хотите дать свое решение, так давайте. Хотите в форме комментария - так давайте под вопросом, а не под чужим ответом.

А иначе это можно считать спамом, который в общем-то наказуем.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;  var d:=a.Where(t->t>0).Count-a.Where(t->t<0).Count;  if d>0 then    Writeln('Положительных чисел на ',d,' больше, чем отрицательных')  else    if d<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 больше, чем отрицательных