Заполнение двумерного массива - Pascal (80569)

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

процедура ввода задана случайными цифрами, написать программу, которая заполняет двумерный массив

Решение задачи: «Заполнение двумерного массива»

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

const
  n = 4;
  m = 5;
 
type
  matr = array[1..n, 1..m] of integer;
 
var
  i, j: integer;
  a: matr;
 
procedure FillMatr(var a: matr);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := -n div 2 + random(m);
  
end;
 
begin
  randomize;
  Fillmatr(a);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:4);
    writeln;
  end;
end.

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

Объявляется константа n со значением 4.
Объявляется константа m со значением 5.
Объявляется тип matr как двумерный массив размером 4x5 заполненный целыми числами.
Объявляются переменные i и j типа integer.
Объявляется переменная a как массив matr.
Объявляется процедура FillMatr принимающая на вход массив a и заполняющая его случайными значениями.
В процедуре происходит двойной цикл for для заполнения каждого элемента массива a значением, вычисленным как -n div 2 + случайное число от 0 до m-1.
В основной программе инициализируется генератор случайных чисел.
Вызывается процедура FillMatr с передачей массива a.
Для каждой строки массива выводятся элементы с выравниванием в 4 символа.
После вывода строки происходит переход на следующую строку. Перед запуском обратитесь к документации языка программирования.