Question

Ввести массивA(N,M). Определить количество положительных и отрицательных элементов.

Answer 1

const n = 5;
var i, j, total_p, total_o: integer;
a: array[1..n, 1..n] of integer;
begin
  for i := 1 to n do begin
    for j := 1 to n do begin
      a[i, j] := random(20) - 10;
      write(a[i, j]:3);
      if(a[i, j] < 0) then inc(total_o)
      else inc(total_p);
    end;
    writeln;
  end;
  writeln('Кол-во положительных эл-тов: ', total_p);
  writeln('Кол-во отрицательных эл-тов: ', total_o);
end.