Двумерные массивы
Массивы, положение элементов в которых описывается двумя индексами, называются двумерными. Их можно представить в виде прямоугольной таблицы или матрицы. Рассмотрим матрицу А размерностью 2*3, то есть в ней будет две строки, а в каждой строке по три элемента: Каждый элемент имеет свой номер, как у одномерных массивов, но сейчас номер уже состоит из двух чисел - номера строки, в которой находится элемент, и номера столбца. Таким образом, номер элемента определяется пересечением строки и столбца. Например, a12 - это элемент, стоящий в первой строке и во втором столбце.
Рассматривается двумерный массив B, состоящий из n строк и m столбцов, содержащий элементы вещественного типа
Операции с отдельными строками и столбцами массива Вычисление суммы значений элементов строки с номером 1 двумерного массива B. s:=0; For k:=1 to m do s:=s+b[1,k]; Writeln(Сумма=,s); Комментарий: поскольку суммируются элементы строки с номером 1, то первый индекс полагается равным 1, второй индекс k изменяется в цикле от 1 до m с шагом 1.
Вычисление произведения элементов, имеющих значения <1, в последней строке (строка с номером n) двумерного массива B. p:=1; For k:=1 to m do if b[n,k]<1 then p:=p*b[n,k]; Writeln(Произвед ение =, p);
Вычисление количества положительных значений элементов столбца с номером 2 двумерного массива B. kol:=0; For i:=1 to n do if b[i,2]>0 then kol:=kol+1; Writeln(Количество =, kol); Комментарий: поскольку обрабатываются элементы столбца с номером 2, то второй индекс полагается равным 2, первый индекс i изменяется в цикле от 1 до n с шагом 1.
Определение минимального значения в столбце с номером m (последний столбец) min:=b[1,m]; For i:=2 to n do if b[i,m]<min then min:=b[i,m]; Writeln(MIN=, min); Комментарий: за начальное значение переменной min принимается значение, находящееся на пересечении столбца с номером m и строки с номером 1.
Обмен значений элементов первого столбца с соответствующими элементами последнего столбца For i:=1 to n do begin p:=b[i,1]; b[i,1]:= b[i,m]; b[i,m]:=p end; Комментарий: для обмена используется вспомогательная переменная p. В переменную p записывается первый из обмениваемых элементов, затем на его место записывается второй обмениваемый элемент, после чего на место второго записывается сохраненное во временной переменной значение первого элемента.
Обмен значений элементов первой строки с соответствующими элементами второй строки For k:=1 to m do begin p:=b[1,k]; b[1,k]:= b[2,k]; b[2,k]:=p end;
Операции с целым массивом Вычисление суммы элементов массива В, значения которых отрицательны s:=0; For i:=1 to n do For k:=1 to m do if b[i,k]<0 then s:=s+b[i,k]; Writeln(Сумма=,s);
Вычисление произведения элементов массива В, расположенных на главной диагонали p:=1; For i:=1 to n do For k:=1 to m do if i=k then p:=p*b[i,k]; Writeln(Произведение =, p); Комментарий: для элементов, расположенных на главной диагонали, справедливо соотношение i=k (номер строки равен номеру столбца)