Составить программу для нахождения сумм элементов каждой строки матрицы, используя подпрограмму-функцию - Turbo Pascal

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

2. даны действительные матрицы А(15,10) и В(9,7). Составить программу для нахождения сумм элементов каждой строки, используя подпрограмму-функцию.

Решение задачи: «Составить программу для нахождения сумм элементов каждой строки матрицы, используя подпрограмму-функцию»

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

type
  matrix = array [1..15, 1..10] of real;
 
var
  a, b: matrix;
 
procedure Create(var x: matrix; rows, cols: byte);
var
  i, j: byte;
begin
  for i := 1 to rows do
    for j := 1 to cols do
      x[i, j] := 10 * Random
end;
 
function sum(x: matrix; cols, row: byte): real;
var
  s: real;
  j: byte;
begin
  s := 0;
  for j := 1 to cols do
    s := s + x[row, j];
  sum := s
end;
 
procedure Print(t: matrix; r, c: byte);
var
  i, j: byte;
begin
  for i := 1 to r do
  begin
    for j := 1 to c do
      Write(t[i, j]:5:2);
    WriteLn('  SUM = ', sum(t, c, i):5:2)
  end
end;
 
begin
  Randomize;
  Create(a, 15, 10);
  Create(b, 9, 7);
  WriteLn('Матрица A:');
  Print(a, 15, 10);  
  WriteLn('Матрица B:');
  Print(b, 9, 7);
  ReadLn
end.

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

Создается тип данных matrix, который представляет собой массив из 15 строк и 10 столбцов с плавающей точкой.
Определяются две переменные a и b, которые представляют собой матрицы.
В процедуре Create создаются две матрицы a и b с заданными размерами. Каждая строка матрицы заполняется случайным значением от 10 до 100.
Определяется функция sum, которая вычисляет сумму элементов в заданной строке и столбце матрицы.
В процедуре Print выводится содержимое каждой строки матрицы и сумма элементов этой строки.
Запускается цикл, в котором сначала создаются две матрицы, затем выводятся их содержимое и суммы элементов каждой строки.
Выполняется генерация случайных чисел, чтобы заполнить матрицы.
Выводится сообщение о том, что матрицы были созданы и их содержимое выведено.
Программа завершается после чтения пользовательского ввода.