Описать функцию SumRow(A, M, N, K) вещественного типа, вычисляющую сумму элементов вещественной матрицы А размера - Pascal

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

Описать функцию SumRow(A, M, N, K) вещественного типа, вычисляющую сумму элементов вещественной матрицы А размера MxN, расположенных в К-й строке (если К>М, то функция возвращает 0). Для данной матрицы А найти максимальную сумму. Код:

const
  nmax = 10;
type
  a = Array[1..nmax, 1..nmax] of Integer;
var
  Matr: a;
  n, m, i, j, k: integer;
 
function SumRow(Matr: a; n, m, k: integer): Integer;
var
  summa: Integer;
  j: integer;
begin
  summa:=0;
  if k > m then
    summa:=0
  else
    for j:=1 to m do
      inc(summa, Matr[k, j]);
  SumRow:=summa;
end;
 
begin
  Randomize;
  repeat
    write('Введите количество строк от 1 до 10: ');
    readln(n);
  until (n in [1..nmax]);
  repeat
    write('Введите количество столбцов от 1 до 10: '); //m - количество столбцов
    readln(m);
  until (m in [1..nmax]);
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      Matr[i, j]:=Random(20);
      write(Matr[i, j]:4);
    end;
    writeln;
  end;
  repeat
    write('Введите номер строки: '); //k - номер строки
    readln(k);
  until (k > 0);
  writeln('Сумма строки с номером ', k, ' = ', SumRow(Matr, n, m, k));
end.

Что значит:

var
  summa: Integer;
  j: integer;
begin
  summa:=0;
  if k > m then
    summa:=0
  else
    for j:=1 to m do
      inc(summa, Matr[k, j]);
  SumRow:=summa;
end;

Решение задачи: «Описать функцию SumRow(A, M, N, K) вещественного типа, вычисляющую сумму элементов вещественной матрицы А размера»

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

var//локальные переменные
  summa: Integer;//сумма
  j: integer;//счетчик цикла
begin
  summa:=0;//начальная сумма = 0
  if k > m then//если номер строки больше их количества, сумма=0
    summa:=0
  else//иначе
    for j:=1 to m do//идем по строке К
      inc(summa, Matr[k, j]);//прибавляем элементы строки к сумме
  SumRow:=summa;//полученное значение функции
end;

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

Объявлены четыре локальные переменные: — summa типа Integer для хранения суммы; — j типа integer для использования в цикле.
Инициализирована переменная summa значением 0.
Выполняется проверка: если k больше m, то summa присваивается 0.
В противном случае выполняется цикл for по элементам строки К, начиная с элемента с индексом 1 и заканчивая последним элементом с индексом m.
Внутри цикла к переменной summa прибавляется значение элемента матрицы с индексами k и j.
По завершении цикла переменной SumRow присваивается значение переменной summa.
Код завершается.