Ответ:

PascalABC.NET

begin

 var zeroes, positives, negatives: integer;

 var sqnc := ReadSeqInteger('Вводи: ', ReadInteger('n = '));

 foreach var number in sqnc do begin

   if number > 0 then inc(positives);

   if number = 0 then inc(zeroes);

   if number < 0 then inc(negatives);

 end;

 Println(zeroes, positives, negatives);

end.

Объяснение:

Ответ:

var

 i, chislo, count, c1, c2, c3: integer;

begin

 write('Введите колличество чисел: ');

 read(count);

 writeln('Введите числа: ');

 for i := 1 to count do

 begin

   readln(chislo);

   if chislo = 0 then

     c1 := c1 + 1;

   if chislo > 0 then

     c2 := c2 + 1;

   if chislo < 0 then  

     c3 := c3 + 1;

 end;

 writeln('=0 ', c1);

 writeln('>0 ', c2);

 writeln('<0 ', c3);

end.