Двумерный массив.Из матрицы B(m,n) сформировать матрицу C(m,n) - Pascal

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

Составить программу для решения следующей задачи обработки двумерных массивов произвольной длины.Выведите на монитор исходные данные и результат. Из матрицы B(m,n) сформировать матрицу C(m,n), каждый элемент которой получается путем вычитания из соответствующего элемента матрицы B первого элемента данной строки.

Решение задачи: «Двумерный массив.Из матрицы B(m,n) сформировать матрицу C(m,n)»

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

uses crt;
type arr1 = array[1..100,1..100] of integer;
var b:arr1;
c:arr1;
i,j,n,m:integer;
procedure print(a,b:integer;c:arr1);
var i,j:integer;
begin
    for i:=1 to a do begin
    for j:=1 to b do begin
        write(c[i,j]:5);
    end;
    writeln();
    end;
end;
begin
     writeln('Size= ');
    readln(n,m);
    for i:=1 to n do begin
    for j:=1 to m do begin
        b[i,j]:=random(10);
    end;
    end;
    
    writeln('Array B:');
    print(n,m,b);
    writeln();
    
    for i:=1 to n do begin
    for j:=1 to m do begin
        c[i,j] := b[i,j]-b[1,1];
    end;
    end;
    writeln('Array C:');
    print(n,m,c);
end.

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

Объявлены переменные:
- b: двумерный массив размером 100x100 для хранения случайных чисел
- c: двумерный массив размером 100x100 для хранения разности значений массива b от первого элемента по первому столбцу
- i, j, n, m: целочисленные переменные для контроля цикла
- print: процедура для вывода значений массива на экран
Введен размер массива b с помощью функции readln
Значения массива b инициализируются случайными числами от 0 до 9 с помощью функции random
Выводится массив b с помощью функции print
Значения массива c инициализируются как разность значений массива b от первого элемента по первому столбцу
Выводится массив c с помощью функции print
Программа завершается