Операции с двумерными массивами

1) Обращение к элементу массива происходит путем указания имени массива, после чего в квадратных скобках указываются через запятую два индекса: номер строки, в которой расположен элемент, и номер столбца.

a[4,8] - обращение к элементу массива a, расположенному на пересечении четвертой строки и восьмого столбца;

b[i, j] - обращение к элементу массива b, расположенному на пересечении i-й строки и j-го столбца.

Над элементом массива можно осуществлять все допустимые операции для переменных типа того элемента.

2) Присваивание: с массивами в целом можно выполнять только эту операцию.

x:=y — присваивания одного массива другому,.

или x[i]: =y[j] - присваивание одной строки массива другой, причем массивы должны быть одного типа и иметь одинаковое количество присваиваемых элементов.

Все остальные действия можно выполнять лишь с отдельными элементами массива.

Стандартные процедуры обработки двумерных массивов

Пусть описан массив a следующим образом:

Var a: array [1.15, 1.10] of integer;

то есть массив состоит из пятнадцати строк и десяти столбцов.

1) Ввод массива. Каждый элемент двумерного массива приходится вводить отдельно, так же как и в случае одномерного массива. А так как элементов несколько, то чтобы перебрать все элементы, нужно перебрать все строки от 1 до 15, а в каждой из строк перебрать все номера столбцов.

То есть, при рассмотрении первой строки (i=1) мы должны рассмотреть все номера столбцов, (с j=1 до j=10), при рассмотрении второй строки (i=2) мы должны также рассмотреть все номера столбцов, (с j=1 до j=10), и т. д., при рассмотрении последней строки (i=15) мы должны рассмотреть все номера столбцов, (с j=1 до j=10).

То есть для ввода массива нужно завести цикл от i=1 до i=15, который будет содержать внутренний цикл от j=1 до 10:

For i:=1 to 15 do for j:=1 to 10 do readln (a[i, j]);

2) Вывод массива. Аналогично вводу, каждый элемент любого массива приходится выводить отдельно, для чего нужно завести цикл от i=1 до i=15, который также будет содержать внутренний цикл от 1 до 10. Чтобы вывести массив в виде таблицы, нужно после ввода каждой строки (то есть после перебора всех номеров столбцов), перейти на новую строку при помощи оператора writeln:

For i:=1 to 15 do.

begin for j:=1 to 10 do writeln (a[i]);

writeln;

end;

3) Нахождение суммы элементов массива. Элементы двумерного массива складываются аналогично одномерным, только меняются уже два индекса, в то время как в одномерном массиве — один.

Соответствующий фрагмент программы:

S:=0;

For i:=1 to 15 do for j:=1 to 10 do s:=s+a[i, j];

Writeln (s);

Что касается всей программы, то перед подсчетом суммы обязательно нужно ввести массив, после чего вывести. Текст всей программы:

Program z1;

Var a: array [1.15,1.10] of integer;

i, j, s: integer;

begin.

for i:=1 to 15 do for j:=1 to 10 do readln (a[i, j]);

for i:=1 to 15 do.

begin for j:=1 to 10 do writeln (a[i, j]);

writeln;

end;

s:=0;

for i:=1 to 15 do for j:=1 to 10 do s:=s+a[i, j];

writeln (s).

end.

4) Нахождение произведения элементов массива. Соответствующий фрагмент программы.

Program z2;

Var a: array [1.15,1.10] of integer;

i, j, p: integer;

begin.

for i:=1 to 15 do for j:=1 to 10 do readln (a[i, j]);

for i:=1 to 15 do.

begin for j:=1 to 10 do writeln (a[i, j]);

writeln;

end;

p:=1;

for i:=1 to 15 do for j:=1 to 10 do p:=p*a[i, j];

writeln (s).

end.

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

Для хранения максимального элемента заведем переменную max, в которую на первом шаге занесем первый элемент массива.

max:=a[1,1];

Перебирая в двойном цикле все строки и столбцы, а тем самым и все элементы массива, будем сравнивать их с переменной max, и если элемент массива больше переменной max, то переменной max присвоим текущий i-й элемент массива, если же элемент массива не больше переменной max, то переменная max не меняется.

For i:=1 to 15 do for j:=1 to 10 do if a[i, j]>max then max:=a[i, j];

Соответствующий фрагмент программы:

max:=a[1,1];

For i:=1 to 15 do for j:=1 to 10 do if a[i, j]>max then max:=a[i, j];

Writeln (max);

Текст всей программы:

Program z3;

Var a: array [1.15,1.10] of integer;

i,, j, max: integer;

begin.

for i:=1 to 15 do for j:=1 to 10 do readln (a[i, j]);

for i:=1 to 15 do.

begin for j:=1 to 10 do writeln (a[i, j]);

writeln;

end;

max:=a[1,1];

For i:=1 to 15 do for j:=1 to 10 do if a[i, j]>max then max:=a[i, j];

Writeln (max);

end.