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

1. СУММА

Сумма элементов главной диагонали S:=0; FOR i:=1 to n DO S:=S+A[i,j];	Сумма элементов, стоящих ниже главной диагонали S:=0; FOR i:=1 to n DO FOR j:=1 to i DO S:=S+A[i,j];
Сумма элементов, стоящих выше главной диагонали S:=0; FOR i:=1 to n DO FOR j:=i to n DO S:=S+A[i,j];	Сумма элементов, стоящих выше побочной диагонали S:=0; FOR i:=1 to n DO FOR j:=1 to n-i+1 DO S:=S+A[i,j];

2. Обмен

Поменять местами 1 и 3 строки FOR j:=1 to n DO Begin C:=A[1,j]; A[1,j]:=A[3,j]; A[3,j]:=C end;

Поменять местами 1 и 2 столбцы FOR i:=1 to n DO Begin C:=A[i,1]; A[i,1]:=A[i,2]; A[i,2]:=C end;

3. Найти минимальный элемент побочной диагонали.

Min:=A[1,n];

FOR i:=1 to n DO

If A[i,n+1-i]<min then min:=A[i,n+1-i];

Задачи для самостоятельного решения:

1. Заменить элементы главной диагонали матрицы на 5.

2. Найти сумму элементов побочной диагонали матрицы.

3. Найти сумму элементов, стоящих ниже побочной диагонали.

4. Найти сумму элементов матрицы, не лежащих на главной диагонали.

5. Поменять местами 3 и 4 столбец матрицы А[1..4,1..4].

6. Поменять местами 2 и 4 строки матрицы А[1..4,1..4].

7. В квадратной матрице размера 5*5 поменять местами столбец, содержащий наибольшее значение, со столбцом содержащим наименьшее значение (предполагаем, что эти элементы единственные).

8. Найти максимальный элемент главной диагонали.