Ввод (заполнение) элементов двумерного массива (матрицы)

For i:=1 to n do

For j:=1 to m do

Readln(A[i,j]);

А Заполнение двумерного массива по строке.

Массив содержит 3 строки и 4 столбца, т.е. 3х4=12 элементов

а11	а12	а13	а14
а21	.	.	.
.	.	.	.

For i:=1 to 3 do

For j:=1 to 4 do

a[i,j]:=random(100);

1. б Заполнение двумерного массива по столбцу:

а11	а12	.	.
а21	.	.	.
а31	.	.	.

For j:=1 to 4 do

For i:=1 to 3 do

a[i,j]:=random(100);

2а. Печать матрицы на экран:

For i:=1 to n do begin

For j:=1 to m do Write (A[i,j]); {Вывод эл-тов одной строки матрицы}

Writeln; { переход на следующую строку экрана}

end;

где А - имя массива;i - индекс строки;j - индекс столбца;

n - количество элементов в строке;m - количество элементов в столбце.

2б. Печать 3-й строки на экран:

For i:=1 to n do Write (A[3,i],’ ‘); {Вывод эл-тов одной строки матрицы}

end;

А. Вычисление суммы элементов 2-той строки.

s:=0;

For i:=1 to n do s:=s+a[2,i];

Writeln(‘Сумма элементов 2-й строки = ’,s);

Б. Вычисление суммы элементов 2-го столбца.

s:=0;

For i:=1 to n do s:=s+a[i,2];

Writeln(‘Сумма элементов 2-го столбца = ’,s);

Вычисление суммы элементов всего двумерного массива.

S:=0;

for i:=1 to m do

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

Задача поиска максимального (минимального) элемента и его индексов.

Ищем максимальный элемент каждой строки:

For i:=0 to m do

begin

max:=a[i,1];

ind_L:=i; {сохраняем номер строки}

ind_C:=1; {заносим номер 1 - первый столбец}

for j:=1 to n do

if a[i,j]>max then begin

max:=a[i,j];

ind_C:=j {сохраняем номер j-ого столбца}

end;

writeln(‘max строки ’,i,’=’,max)

end;

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

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;

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

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