Вычислить суммы элементов нижних треугольных матриц A(n,n) и B(m,m) - Pascal ABC

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

Нужна ваша помощь Вычислить суммы элементов Нижних треугольных матриц A(n,n) и B(m,m)

Решение задачи: «Вычислить суммы элементов нижних треугольных матриц A(n,n) и B(m,m)»

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

uses  Crt;
const high = 20;
      low  = -20;
      n    = 3;
      m    = 4;
type  int = 1..m;
      massiv = array [int, int] of integer;
var   A, B : massiv;
 
Procedure In_Mas(var mas:massiv; const size:int; const phight, plow : integer);
          var i, j : byte;
          Begin
               for i:=1 to size do
                   for j:=1 to size do
                       if i>j then
                          mas[i,j]:=plow+Random(phight-plow+1)
                       else mas[i,j]:=0;
          End;
 
Procedure Out_Mas(const mas:massiv; const size:int);
          var i, j : byte;
          Begin
               for i:=1 to size do
               begin
                    for j:=1 to size do
                        Write(mas[i,j]:4);
                    WriteLn;
               end;
          End;
 
Function Summa(const mas:massiv; const size:int):integer;
          var i, j : byte;
              sum  : integer;
          Begin
               sum:=0;
               for i:= 1 to size do
                   for j:=1 to size do
                       if i>j then sum:=sum+mas[i,j];
               Summa:=sum;
          End;
 
BEGIN
     Randomize;
     ClrScr;
     In_Mas(A, n, high, low);
     In_Mas(B, m, high, low);
     WriteLn('A:');
     Out_Mas(A, n);
     WriteLn('B:');
     Out_Mas(B, m);
     WriteLn('Сумма элементов A = ', Summa(A, n):4);
     WriteLn('Сумма элементов B = ', Summa(B, m):4);
END.

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

В начале кода подключается библиотека Crt, которая обеспечивает работу с памятью.
Затем определяются константы high и low, которые задают границы для работы с массивами.
Далее определяются переменные n и m, которые задают размеры матриц A и B соответственно.
Создается тип int, который представляет собой целое число от 1 до m.
Определяется переменная massiv, которая представляет собой массив целых чисел размером n на m.
Создаются переменные A и B, которые представляют собой матрицы размером n на m.
Запускается процедура In_Mas, которая заполняет массивы A и B случайными числами.
Затем запускается процедура Out_Mas, которая выводит содержимое матриц A и B на экран.
Определяется функция Summa, которая вычисляет сумму элементов матрицы A или B.
В функции Summa используется цикл, который проходит по всем элементам матрицы и суммирует их.
После завершения цикла значение переменной sum выводится на экран.
Конец программы.