Задать матрицу и найти среднее значение ее строк - Free Pascal

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

Нужно задать матрицу в паскале и найти среднее значение ее строк

Решение задачи: «Задать матрицу и найти среднее значение ее строк»

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

const n=5;
var
  a: array [1..n,1..n] of Integer;
  i, j, t: Integer;
begin
  Randomize;
  WriteLn('A =');
  for i:=1 to n do begin
    t:=0;
    for j:=1 to n do begin
      a[i,j]:=Random(51); Write(a[i,j]:4); t:=t+a[i,j];
    end; WriteLn(' |',t/n:6:2);
  end;
end.

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

Объявляются переменные: — n — количество строк и столбцов в матрице (5); — a — матрица (размерностью 5x5); — i, j, t — счётчики для обхода матрицы и временная переменная (Integer).
Задаётся начальное значение для счётчика t равное нулю.
Выводится название матрицы A =.
Два вложенных цикла обходит все элементы матрицы. Внешний цикл выполняется для перебора строк (i), внутренний — для перебора столбцов (j).
Внутренний цикл выполняет следующие действия: — присваивает счётчику t значение элемента матрицы (a[i,j]); — выводит значение элемента матрицы (a[i,j]) в формате 4-х разрядов; — прибавляет значение элемента матрицы (a[i,j]) к счётчику t.
После завершения внутреннего цикла выводится символ |.
После завершения внешнего цикла выводится среднее значение строки (t/n) с фиксированным количеством знаков после запятой (6:2).
После завершения программы выводится символ новой строки (\n).