Работа с массивами
Создание: 11.03.2013
Без долгих объяснений приведем пример программы, обработки двумерного массива.

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

Пример выполнения программы

Код программы на языке Pascal

program massive;
const n=7;   // количество элементов в массиве
var m:array[1..n, 1..n] of integer;
    max,num,i,j,z: integer;
begin
  randomize;
  // заполняем массив случайными числами
  for i:=1 to n do
    for j:=1 to n do
    m[i,j]:=random(100); // формируем массив случайными числами от 0 до 99
  // выводим полученный массив на экран
  writeln('Исходный массив');
  for i:=1 to n do
    begin
    for j:=1 to n do
    write(m[i,j]:4);
    writeln;
    end;
  // На главной диагонали ищем максимальный элемент
  max:=0;
  for i:=1 to n do
    if m[i,i] > max then
    begin
    max:=m[i,i];
    num:=i;     // запоминаем новое максимальное число и его номер
    end;
  // меняем num-ю строку и столбец
  for i:=1 to n do
    begin
    z:=m[num,i];
    m[num,i]:=m[i,num];
    m[i,num]:=z;
    end;
  // выводим новый, измененный массив на экран.
  writeln('Новый массив');
  for i:=1 to n do
    begin
    for j:=1 to n do
    write(m[i,j]:4);
    writeln;
    end;
end.