На основе квадратной матрицы сформировать одномерные массивы - Pascal ABC

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

Дано массив B(M,M). Сформировать массив S из суммы тех элементов столбцов, которые размещены под главной диагональю, массив P из произведений элементов на параллелях, которые лежат над главной диагональю. Полученные массивы объединить в массив С следующим образом: C (S1, S2, S3, ... ,P3, P2, P1).

Решение задачи: «На основе квадратной матрицы сформировать одномерные массивы»

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

const m=6;
type matr=array[1..m,1..m] of integer;
     mas=array[1..m*2-2]of integer;
var b:matr;
    s,p,c:mas;
    i,j,pr,sum:integer;
begin
 writeln('B:');
 for i:=1 to m do
  begin
   for j:=1 to m do
    begin
     b[i,j]:=random(5);
     write(b[i,j]:3)
    end;
   writeln
  end;
 writeln('S:');
 for j:=1 to m-1 do
  begin
   sum:=0;
   for i:=j+1 to m do sum:=sum+b[i,j];
   s[j]:=sum;c[j]:=sum;
   write(s[j],' ')
  end;
 writeln;
 writeln('P:');
 for i:=1 to m-1 do
  begin
   pr:=1;
   for j:=i+1 to m do pr:=pr*b[i,j];
   p[i]:=pr;
   write(p[i],' ')
  end;
 writeln;
 writeln('C:');
 for i:=m to m*2-2 do c[i]:=p[2*m-1-i];
 for i:=1 to m*2-2 do write(c[i],' ')
end.

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

В данном коде формируется одномерные массивы из квадратной матрицы.

Создается константа m, которая определяет размерность матрицы (в данном случае m=6).
Создается тип matr, который представляет собой матрицу целых чисел.
Создается переменная mas, которая представляет собой одномерный массив для хранения суммы элементов матрицы.
Создаются переменные s, p, c, которые представляют собой одномерные массивы для хранения суммы элементов соответствующих столбцов матрицы.
Создается переменная b, которая представляет собой матрицу для хранения случайных значений.
Задаются начальные значения для переменных s, p, c.
Вычисляются суммы элементов каждого столбца матрицы и записываются в соответствующие одномерные массивы s.
Вычисляется произведение элементов каждого столбца матрицы и записывается в соответствующие одномерные массивы p.
Вычисляется сумма произведений элементов каждого столбца матрицы и записывается в соответствующий одномерный массив c.
Заполняются значениями из массива p одномерный массив c.
Выводится результат на экран.