Вычислить сумму элементов в каждой строке матрицы a[n, n], с использованием функций и процедур - Pascal ABC

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

как вычислить сумму элементов в каждой строке матрицы a[n, n], с использованием функций и процедур?

                    Листинг программы
                
 
                        
                          
                    
Program Maximum;
Type Matrix=array [1..100, 1..100] of integer;
Var
a: matrix;
n, i, j: byte;
sum:integer;
Begin
Writeln ('Введите размерность матрицы:');
Readln(n);
For i :=1 to n do {вводматрицы a}
For j :=1 to n do
a[i, j]:= random(20)-10;
For i:=1 to n do {выводматрицы}
begin
For j:=1 to n do
Write (a[i, j]);
Writeln;
end ;
For i :=1 to n do
begin 
For j :=1 to n do
if a[i,j]>=0 then
sum:=sum+a[i,j];
writeln('sum of ',i,'=',sum);
sum:=0;
end;
end.

Решение задачи: «Вычислить сумму элементов в каждой строке матрицы a[n, n], с использованием функций и процедур»

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

type
  Matrix = array [1..100, 1..100] of integer;
 
var
  a: matrix;
  n, i, j: byte;
  sum: integer;
 
procedure su(var x: matrix);
var
  q, w, sum: integer;
begin
  for q := 1 to n do
  begin
    for w := 1 to n do
      if x[q, w] >= 0 then
        sum := sum + a[q, w];
    writeln('sum of ', q, '=', sum);
    sum := 0;
  end;
end;
 
begin
  Writeln('Введите размерность матрицы:');
  Readln(n);
  for i := 1 to n do {ввод матрицы a}
    for j := 1 to n do
      a[i, j] := random(20) - 10;
  for i := 1 to n do {вывод матрицы}
  begin
    for j := 1 to n do
      Write(a[i, j]:3);
    Writeln;
  end;
  su(a);
end.

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

Создаётся тип данных Matrix, который представляет собой матрицу размером от 1 до 100 в каждой строке и каждом столбце.
Создаётся переменная a типа Matrix, которая будет использоваться для хранения матрицы.
Создаются три переменные n, i и j типа byte, которые будут использоваться для итерации по матрице.
Создается переменная sum типа integer, которая будет использоваться для хранения суммы элементов матрицы.
Вызывается процедура su, которая принимает матрицу x в качестве параметра и выполняет следующие действия:
- Инициализирует две переменные q и w типа integer для итерации по матрице.
- Использует два вложенных цикла for для суммирования элементов матрицы x с положительными значениями.
- Выводит сумму элементов матрицы x для каждого столбца.
Выполняется ввод размера матрицы с помощью функции Readln.
Для каждого столбца матрицы a вызывается цикл for, который суммирует элементы матрицы a с помощью процедуры su.
Выводится матрица a с помощью функции Write.
Вызывается функция random для генерации случайного числа в диапазоне от -10 до 10.
Программа завершается.