Получить квадратную матрицу 6-ого порядка - Turbo Pascal

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

3. Получить квадратную матрицу 6-ого порядка: 1 2 3 4 5 6 2 3 4 5 6 1 3 4 5 6 1 2 4 5 6 1 2 3 5 6 1 2 3 4 6 1 2 3 4 5

Решение задачи: «Получить квадратную матрицу 6-ого порядка»

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

program mm;
const
  N = 6;
 
var
  i, j: byte;
  a: array [0..N - 1, 0..N - 1] of byte;
 
begin
  for i := 0 to N-1 do
  begin
    for j := 0 to N-1 do
    begin    
      a[i,j]:=(i+j) mod n+1;
      write(a[i,j]:3);
    end;
    writeln;
  end;  
end.

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

В данном коде на Turbo Pascal создается программа под названием mm. В ней объявляются две константы: N (равная 6) и n (равная 1). Далее, в переменную a записывается массив из N строк и N столбцов, каждый элемент которого представлен типом byte. Затем, в двух вложенных циклах происходит заполнение массива a. Внешний цикл проходит по строкам, а внутренний - по столбцам. В каждой ячейке (i,j) массива a записывается значение (i+j) mod n+1, где mod - операция взятия остатка от деления. После этого значение записывается в выходной поток с помощью функции write. В конце программы происходит вызов функции writeln, который необходим для перехода на новую строку.