6. Поиск максимального (минимального) элементов каждой строки (столбца) и их индексов.

FOR i:=1 to 3 DO

begin

Max:=[i,1];

Imax_n:=1;

FOR j:=1 to 4 DO

If A[i,j]>Max then begin Max:=A[i,j]; Imax_n:=j; end;

WRITELN(‘Max ‘,i,’ – строки=‘, Max,’ его индекс=’,Imax_n);

End;

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

1. Заполнить массив A[1..2,1..5] целыми значениями с клавиатуры и вывести на экран в виде таблицы.

2. Заполнить массив A[1..3,1..6] вещественными значениями с клавиатуры и вывести на экран в виде таблицы.

3. Заполнить массив A[1..3,1..2] по формуле А[i,j]:=i+j и вывести на экран в виде таблицы.

4. В массиве А[1..3,1..4] найти сумму отрицательных элементов.

5. В массиве А[1..3,1..2] найти количество четных элементов.

6. В массиве А[1..2,1..4] найти количество элементов, равных 0, 1 или 2.

7. Определите среднее арифметическое четных элементов массива A[1..2,1..5].

8. Найдите номер строки и столбца элемента массива A[1..3,1..4], равного 10.

9. Вычислить сумму элементов каждого столбца массива A[1..2,1..5].

10. Найти минимальный элемент каждого столбца массива A[1..4,1..5].

11. Найти минимальный элемент среди отрицательных элементов массива А[1..3,1..4].

12. Упорядочить массив по убыванию «методом пузырька».

13. Найти сумму элементов того столбца двумерного массива, в котором расположился наибольший элемент (считаем, что он единственный).

• Записать A[1..m,1..n] в B[1..m*n] построчно.

FOR i:=1 to m DO

FOR j:=1 to n DO

B[(i-1)*n+j]:=A[i,j]

…

• Поменять в строках элементы в обратном порядке.

FOR i:=1 to m DO

FOR j:=1 to n DO

Begin C:=A[i,j]; A[i,j]:=A[i,n-j+1]; A[i,n-j+1]:=C end;

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

Объявим двумерный массив, количество строк которого совпадает с количеством столбцов.

Var

A: array [1..4,1..4] of integer;

{все элементы массива являются целыми числами}

А[1,1]	А[1,2]	А[1,3]	А[1,4]
А[2,1]	А[2,2]	А[2,3]	А[2,4]
А[3,1]	А[3,2]	А[3,3]	А[3,4]
А[4,1]	А[4,2]	А[4,3]	А[4,4]

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

главная диагональ: элементы А[1,1], A[2,2], A[3,3], A[4,4] (индексы элементов, расположенных на главной диагонали (i=j)); побочная диагональ элементы А[4,1], A[3,2], A[2,3], A[1,4] (сумма индексов элементов на 1 больше размерности строки (или столбца), т.е. i+j=4+1  в общем виде i+j=n+1).

-------	А[1,2]	А[1,3]	А[1,4]
	---------	А[2,3]	А[2,4]
		----------	А[3,4]
			-----------

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

--------
А[2,1]	-------
А[3,1]	А[3,2]	-------
А[4,1]	А[4,2]	А[4,3]	---------

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