Дан целочисленный массив от -20 до 20 размер массива 20. Найти количества отрицательных...

Question

Дан целочисленный массив от -20 до 20 размер массива 20. Найти количества отрицательных элементов массива

Answer 1

Const
  N = 20;

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

begin
  k := 0;
  for var i := 1 to N do
  begin
    a[i] := Random(41) - 20;
    if a[i] < 0 then k := k + 1;
    write(a[i]:4);
  end;
  writeln;
  writeln('Отицательных: ', k);
end.