Напечатать среднее арифметическое каждого столбца матрицы - Turbo Pascal

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

Дана таблица B[i,j], где i=1,2,...,n, j=1,2,...,m. Напечатать среднее арифметическое каждого столбца.

Решение задачи: «Напечатать среднее арифметическое каждого столбца матрицы»

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

const
  n = 4;
  m = 4;
var
  a : array[1..n, 1..m] of integer;
  b : array[1..m] of real;
  i, j : integer;
  s : real;
begin
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin      
      a[i,j] := random(100);
      write(a[i,j]:6);
    end;
    writeln
  end;
  writeln('средние значения столбцов:');
  for j := 1 to m do
  begin
    s := 0;
    for i := 1 to n do s := s + a[i,j];
    b[j] := s / n;
    write(b[j]:6:2)
  end;  
  readln
end.

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

В данном коде объявлены следующие переменные:

n - количество строк в матрице (равное 4 в данном случае);
m - количество столбцов в матрице (также равное 4);
a - матрица целых чисел размером n x m;
b - вектор из m чисел типа real, который будет содержать средние значения столбцов;
i и j - два индекса, которые будут использоваться для прохода по матрице;
s - переменная для хранения суммы элементов текущей строки матрицы;
randomize - функция, которая перемешивает генератор случайных чисел, чтобы каждый раз получать разные значения;
for - цикл, который проходит по каждой строке матрицы и каждому столбцу, заполняя матрицу случайными числами;
write - функция, которая выводит значение переменной на экран;
readln - функция, которая читает ввод пользователя и выводит его на экран. Внутренний цикл for i := 1 to n do начинается с первой строки матрицы и продолжается до последней. В этом цикле внутренний цикл for j := 1 to m do проходит по каждому столбцу текущей строки и заполняет его случайным числом. После завершения внутреннего цикла выводится значение переменной a[i,j] с помощью функции write. Затем следует внешний цикл for j := 1 to m do, который начинается со второго столбца и продолжается до последнего. В этом цикле переменная s инициализируется суммой элементов текущей строки. Затем вычисляется среднее значение столбца, которое сохраняется в b[j]. И наконец, это значение выводится на экран с помощью функции write. После завершения всех циклов выводится сообщение средние значения столбцов:, после чего начинается новый цикл for j := 1 to m do, в котором выводится среднее значение столбца.