Дана последовательность из n целых чисел. определить, каких чисел в этой последовательности больше: положительных или отрицательных

var n,i,c,m,p:integer;

begin

 m:=0;

 p:=0;

 writeln('Введите количество чисел.');

 readln(n);

 for i:=0 to n-1 do

 begin

   readln(c);

   if c < 0 then m:=m+1

   else if c = 0 then continue

   else p:=p+1;

 end;

 if p < m then writeln('Отрицательных чисел больше, чем положительных.')

 else if p > m then writeln('Положительных чисел больше, чем отрицательных.')

 else writeln('Равное количество положительных и отрицательных чисел');

end.

Объяснение:

Переменные:

n - количество чисел, i - счетчик цикла for, c - считанное значение, m - счетчик отрицательных чисел, p - счетчик положительных чисел.

Считаем, что "0" - ни положительное, ни отрицательное число.