5. Алгоритм поиска минимального элемента и его индексов для всего массива.

Ниже приведен фрагмент программы для решения данной задачи.

...

min:=a[1,1];

ind_L:=1

ind_C:=1;

for i:=1 to m do

for j:=1 to n do

if a[i,j]<min then

begin

min:=a[i,j];

ind_L:=i;

ind_C:=j

end;

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

Рассмотрим алгоритмы обработки квадратных матриц.

TYPE

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

VAR

a: mas4x4;

Введем некоторые понятия:

a главная диагональ: элементы a11, a22, a33, a44 (индексы элементов, расположенных на главной диагонали (i=j)); побочная диагональ элементы a41,a32,a23,a14 (сумма индексов элементов на 1 больше размерности строки (или столбца), т.е. i+j=4+1  в общем виде — i+j=n+1). 11	A12	a13	a14
a21	A22	a23	a24
a31	A32	a33	a34
a41	A42	a43	a44

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

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

Задания:

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];

Попробуйте решить следующую задачу:

1. Найти максимальный элемент для всех элементов каждого столбца, начиная с элемента, стоящего на главной диагонали. Рассмотреть оба случая:

1) берем элементы столбца от элемента на главной диагонали и «вверх к первой строке»

2. ищем максимальный элемент для элементов каждого столбца от главной диагонали «вниз» до последней строки.