const
  N = 16;
var
  arr: array[1..N] of integer;
  count: integer;
begin
  for var i := 1 to N do
    begin
      arr[i] := Random(41) - 20;
      Write(arr[i], ' ');
      if arr[i] < 0 then
        count := count + 1;
    end;
  Writeln('Количество отрицательных чисел: ', count);
end.