Сформировать одномерный массив из сумм квадратов элементов каждого столбца матрицы - Turbo Pascal

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

Сформировать одномерный массив из сумм квадратов элементов каждого столбца матрицы. Все что находил все было не рабочим, помогите пожалуйста все-таки ее решить)

Решение задачи: «Сформировать одномерный массив из сумм квадратов элементов каждого столбца матрицы»

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

const
  m = 7; {столбцы}
  n = 4; {строки}
var
  mx : array[1..n, 1..m] of integer; {матрица}
  arr : array[1..m] of longint; {массив сумм квадратов столбцов}
  i, j : integer;
  s : longint;
begin
  randomize;
  {заполним и выведем матрицу}
  writeln('исходная матрица (запонена случайно!)');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      mx[i,j] := -10 + random(20);
      write(mx[i,j] : 5)
    end;
    writeln
  end;
  {проходим сначала по столбцам}
  s := 0; {сумма квадратов}
  for j := 1 to m do
  begin
    for i := 1 to n do s := s + sqr(mx[i,j]); {суммируем квадраты в строках}
    arr[j] := s; {заносим результат в массив}
    s := 0; {обнуляем счетчик перед проходом след. столбца}
  end;
  {вывод массива сумм квадратов}
  writeln('массив сумм квадратов элементов столбцов');
  for j := 1 to m do write(arr[j] : 7);
  readln
end.

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

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

Переменные объявляются следующим образом:
- m и n - это количество столбцов и строк в матрице соответственно.
- mx - это матрица, заполненная значениями от -10 до 19 (random(20)).
- arr - это массив, в который будут заноситься суммы квадратов элементов столбцов.
- i и j - это переменные для прохода по строкам и столбцам матрицы.
- s - это переменная для хранения суммы квадратов элементов столбца.
Сначала происходит заполнение исходной матрицы случайными значениями от -10 до 19.
- Затем происходит проход по столбцам матрицы.
- Для каждого столбца вычисляется сумма квадратов элементов этого столбца и записывается в переменную s.
- После прохода по всем столбцам, полученная сумма записывается в соответствующий элемент массива arr.
- Наконец, выводится массив сумм квадратов элементов столбцов. Обратите внимание, что данный код не использует вложенные списки.