дано : равномерный массив А[n]
Найти количество отрицательных элементов массива

const
  n=16;
var
  x:array[1..n] of integer;
  i,k:integer;
begin
  Randomize;
  Writeln('Элементы массива');
  k:=0;
  for i:=1 to n do
  begin
    x[i]:=Random(51)-25;
    Write(x[i]:4);
    if x[i]<0 then Inc(k)
  end;
  Writeln;
  Writeln('Количество отрицательных элементов равно ',k);
end.

Тестовое решение:
Элементы массива
   3 -14  -7  15  10  12 -11 -13 -21 -13  13 -17   9  -7 -24  20
Количество отрицательных элементов равно 9