Описать процедуру вычисления количества отрицательных чисел в массиве w и n элементов

ответ:После завершения цикла остается только вывести на экран значения переменных pos и neg, которые содержат количества положительных и отрицательных элементов массива.

Исходный код программы поиска количества положительных и отрицательных элементов массива на языке Pascal:

const N = 30;

var

   a: array[1..N] of integer;

   i, pos, neg: byte;

begin

   randomize;

   pos := 0;

   neg := 0;

   for i:=1 to N do begin

       a[i] := random(100) - 50;

       write(a[i]:4);

       if a[i] < 0 then

           neg := neg + 1

       else

           if a[i] > 0 then

               pos := pos + 1;

   end;

   writeln;

   writeln('Положительных: ', pos);

   writeln('Отрицательных: ', neg);

end.

Объяснение: