Найти максимальное значение элементов, расположенных на главной и побочной диагоналях матрицы - PascalABC.NET

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

Дана квадратная матрица M x M. Найти максимальное значение элементов, расположенных на главной и побочной диагоналях и выяснить какой из них больше. >>const

m = 4; 
var 
a: array[1..m, 1..m] of integer; 
i, j, max, max1, max2: integer; 
begin 
for i := 1 to m do 
for j := 1 to m do 
a[i, j] := random(25) - 12; 
for i := 1 to m do 
begin 
for j := 1 to m do 
write(a[i, j]:4); 
writeln; 
end; 
max:=0; 
begin 
for i := 1 to m do 
for j := 1 to m do 
if (i = j) and (a[i, j] > max) then 
max1 := a[i, j]; 
end; 
for i := 1 to m do 
for j := 1 to m do 
if (a[i, j] > max) and (i + j = m + 1) then 
max2 := a[i, j]; 
if max1 > max2 then writeln('Максимальное число=', max1) else 
writeln('Максимальное число', max2); 
writeln('максимальный элемент побочной=', max2); 
writeln('максимальный элемент главной=', max1); 
end.

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

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

const m = 4;
var a: array[1..m, 1..m] of integer;
    i, j, max1, max2: integer;
begin
for i := 1 to m do
 begin
  for j := 1 to m do
   begin
    a[i, j] := random(25) - 12;
    write(a[i,j]:4);
   end;
  writeln;
 end;
max1:=a[1,1];
max2:=a[1,m];
for i := 1 to m do
 begin
  if a[i,i]>max1 then max1:=a[i,i];
  if a[i,m-i+1]>max2 then max2:=a[i,m-i+1];
 end;
writeln('максимальный элемент главной=', max1);
writeln('максимальный элемент побочной=', max2);
if max1>max2 then writeln('на главной больше')
else if max1<max2 then writeln('на побочной больше')
else writeln('они равны')
end.

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

Объявляются переменные:
- m - размерность матрицы (4);
- a - массив для хранения значений матрицы (1..m, 1..m);
- i, j - индексы для обхода матрицы;
- max1, max2 - для хранения максимальных значений элементов главной и побочной диагоналей соответственно.
Заполняется массив a случайными значениями от -12 до 12.
Выводятся значения элементов матрицы.
Присваиваются начальные значения max1 и max2.
Происходит поиск максимальных значений элементов главной и побочной диагоналей, начиная с первого элемента.
Выводится максимальное значение элемента главной диагонали.
Выводится максимальное значение элемента побочной диагонали.
Сравниваются значения max1 и max2, и выводится соответствующее сообщение.