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

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

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

Главная диагональ матрицы идет из левого верхнего угла в нижний правый. Пусть индексом 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