Квадратные матрицы.

Type mas4x4=array[1..4,1..4] of integer;

var a: mas4x4;

a11 a12 a13 a14 a21 a22 a23 a24 a31 a32 a33 a34 a41 a42 a43 a44

a12 a13 a14 a23 a24 a34

a21 a31 a32 a41 a42 a43

Главная диагональ - элементы a₁₁, a₂₂, a₃₃, a₄₄ (индексы элементов, расположенных на главной диагонали (i=j)

Побочная диагональ - элементы a₄₁, a₃₂, a₂₃, a₁₄ (сумма индексов элементов на 1 больше размерности строки (или столбца), т.е. i+j=4+1 или i+j=n+1. На рисунке главная диагональ закрашена сплошным серым цветом, побочная - черным.

Элементы, расположенные над главной диагональю, Для индексов элементов, расположенных над главной диагональю выполняется отношение i<j;

Элементы, расположенные под главной диагональю, Для индексов элементов, расположенных под главной диагональю выполняется отношение i>j;

Примеры :

1) Найти сумму элементов главной диагонали:

S:=0;

for i:=1 to n do S:=S+a[i,i];

2) Найти минимальный элемент побочной диагонали:

min:=a[1,n];

for i:=1 to n do

if a[i,n+1-i]<min then min:=a[i,n+1-i];

Задачи по двумерным массивам