Двумерные массивы - Pascal ABC (248620)

Формулировка задачи:

Даны два двумерных массива одинаковой размерности. Построить третий массив, элементами которого будут суммы соответствующих элементов первого и второго массива. Например, c[1,1]=a[1,1]+b[1,1]. Найти наименьший элемент в полученном массиве.

Решение задачи: «Двумерные массивы»

Листинг программы

type matr = array [1..100, 1..100] of integer;
 
procedure PrintArray(a: matr; n, m: integer; c: char);
var i, j: integer;
begin
  writeln('Матрица ', c, ':');
  for i := 1 to n do begin
    for j := 1 to m do
      write(a[i, j]:4);
    writeln;
  end;
end;
 
var a, b, c: matr;
    n, m, i, j, im, jm: integer;
begin
  randomize;
  im := 1; jm := 1;
  write('n, m = '); readln(n, m);
  for i := 1 to n do 
    for j := 1 to m do begin
      a[i, j] := random(31) - 15;
      b[i, j] := random(31) - 15;
      c[i, j] := a[i, j] + b[i, j];
      if c[im, jm] > c[i, j] then begin
        im := i; jm := j;
      end;
    end;
  PrintArray(a, n, m, 'A');
  PrintArray(b, n, m, 'B');
  PrintArray(c, n, m, 'C');
  writeln('Минимальный элемент C = ', c[im, jm]);
end.

Объяснение кода листинга программы

Объявление типа данных для двумерной матрицы и процедуры её вывода.
Создание трёх матриц a, b, c.
Ввод размеров матрицы n и m с помощью функции readln().
Заполнение матрицы a случайными числами от -15 до 15.
Заполнение матрицы b случайными числами от -15 до 15.
Вычисление суммы элементов a[i, j] и b[i, j] и сохранение результата в матрице c.
Поиск максимального элемента в матрице c и сохранение его индексов в переменных im и jm.
Вывод матрицы a на экран с помощью процедуры PrintArray().
Вывод матрицы b на экран с помощью процедуры PrintArray().
Вывод матрицы c на экран с помощью процедуры PrintArray().
Вывод на экран минимального элемента матрицы c с помощью оператора writeln().