Подпрограммы(на примере работы с матрицами) - Pascal ABC

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

Задание. Составить подпрограмму подсчета суммы значений элементов в одномерном массиве.С помощью этой подпрограммы подсчитать суммы элементов строк произвольно заданной двухмерной матрицы и вывести номер строки с максимальной суммой.Составить блок-схему. Заранее огромное спасибо!

Решение задачи: «Подпрограммы(на примере работы с матрицами)»

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

type mas=array[1..20] of integer;
     mtr=array[1..20] of mas;
function summa(a:mas;n:byte):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to n do
s:=s+a[i];
summa:=s;
end;
var a:mtr;
    m,n,i,j,mn,imn,k,p:integer;
begin
randomize;
write('Количество строк от 1 до 20 m=');
readln(m);
write('Количество столбцов от 1 до 20 n=');
readln(n);
writeln('Матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i][j]:=random(20);
    write(a[i][j]:3);
   end;
  writeln;
 end;
mn:=summa(a[1],n);
imn:=1;
writeln('Суммы в строках');
for i:=1 to m do
 begin
  p:=summa(a[i],n);
  writeln('Строка ',i,'=',p);
  if p<mn then
   begin
    mn:=p;
    imn:=i;
   end;
 end;
writeln('Номер строки с минимальной суммой=',imn)
end.

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

Создается тип данных mas, который представляет собой массив целых чисел размером от 1 до 20.
Создается переменная mtr, которая представляет собой матрицу размером m x n, где m - количество строк, n - количество столбцов.
Определяется функция summa, которая принимает массив a и байт n в качестве параметров. Функция инициализирует переменную s значением 0 и затем суммирует все элементы массива a, добавляя каждый элемент к переменной s. В конце функция возвращает значение переменной s.
Создается переменная a, которая представляет собой матрицу размером m x n.
Используется функция randomize для инициализации генератора случайных чисел.
Пользователю предлагается ввести количество строк и количество столбцов матрицы.
Выводится сообщение Матрица и для каждой строки выводятся значения элементов матрицы, сгенерированные случайным образом.
Вычисляется сумма всех элементов первой строки матрицы и сохраняется в переменной mn.
Переменная imn инициализируется значением 1.
Для каждой строки матрицы вычисляется сумма элементов и выводится сообщение Строка i = сумма. Если сумма меньше значения mn, то значение mn и переменной imn обновляются.
Выводится сообщение Номер строки с минимальной суммой = i, где i - номер строки с минимальной суммой.