Количество отрицательных элементов под главной диагональю матрицы | Язык Паскаль

Количество отрицательных элементов под главной диагональю матрицы

Определить количество отрицательных элементов квадратной матрицы, расположенных под ее главной диагональю.

Главная диагональ матрицы идет из левого верхнего угла в нижний правый. Пусть индексом i обозначаются номера строк, а j - номера столбцов (константами N и M обозначим количество строк и столбцов соответственно). У элементов главной диагонали значение этих индексов равно между собой. У элементов ниже главной диагонали значение i будет меняться от 2 до N, а значение j от 1 до i-1.

const
    N = 5; M = 5;

var 
    a: array[1..N,1..M] of integer;
    i, j, count: byte;
    
begin
    randomize;
    for i:=1 to N do begin
        for j:=1 to M do begin
            a[i,j] := random(10)-5;
            write(a[i,j]:3);
        end;
        writeln;
    end;
    
    count := 0;
    for i:=2 to N do
        for j:=1 to i-1 do
            if a[i,j] < 0 then
                count := count + 1;
    writeln(count);
end.

Пример выполнения кода:

 -4 -2 -2 -2 -2
  4 -2 -3 -5  0
  0 -5 -3 -4 -2
  3 -4  4 -1  4
 -3  4  2 -3 -5
4