В матрице n-го порядка найти максимальный среди элементов, лежащих ниже побочной диагонали - Pascal ABC

Формулировка задачи:

В матрице n-го порядка найти максимальный среди элементов, лежащих ниже побочной диагонали, и минимальный среди элементов, лежащих выше главной диагонали.

Решение задачи: «В матрице n-го порядка найти максимальный среди элементов, лежащих ниже побочной диагонали»

Листинг программы

  Max := A[2,n];
  Min := A[1,2];
  for i := 1 to n do begin
    for j := 1 to n do begin
      if (j > n - i + 1) and (A[i,j] > Max) then
        Max := A[i,j];
      if (j > i) and (A[i,j] < Min) then
        Min := A[i,j];
    end;
  end;
  WriteLn('Max: ', Max);
  WriteLn('Min: ', Min);

Объяснение кода листинга программы

Создаётся переменная Max, которая будет хранить максимальный элемент матрицы.
Создаётся переменная Min, которая будет хранить минимальный элемент матрицы.
Задаётся начальное значение для переменной Max и Min.
Запускается цикл по каждому элементу матрицы.
Внутри цикла проверяется условие: если текущий столбец больше текущего ряда плюс один, и текущий элемент больше Max, то Max обновляется.
Если текущий столбец меньше или равен текущему ряду, и текущий элемент меньше Min, то Min обновляется.
После завершения внутреннего цикла, выводится значение Max и Min.