Заполнить массив - Pascal ABC

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

Заполнить массив следующим образом:

Решение задачи: «Заполнить массив»

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

var
  a: array[1..10, 1..10] of integer;
  i, j, n: integer;
 
begin
  for i := 1 to 10 do
    begin
      for j := 1 to 10 do
        begin
          if odd(j) 
            then n := j - 1
            else n := 10 - j;
          a[i, j] := (n * 10 + i - 1) mod 25 + 1;
          write(a[i, j]:3)
       end;
      writeln 
    end
end.

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

Введен массив a типа array[1..10, 1..10] of integer; (10x10 массив целых чисел)
Введены три переменные i, j, n типа integer; (для циклов)
Два вложенных цикла: a. Первый цикл идет по i от 1 до 10 b. Второй цикл идет по j от 1 до 10
В блоке if-else вычисляется значение переменной n: a. Если j нечетное число, то n := j - 1 b. Если j четное число, то n := 10 - j
Значение переменной n используется для вычисления значения элемента массива a[i, j]: a. (n * 10 + i - 1) mod 25 + 1
Выводится значение элемента массива a[i, j] с помощью функции write(a[i, j]:3)
После завершения второго вложенного цикла выводится символ новой строки с помощью функции writeln
После завершения первого вложенного цикла выводится символ новой строки с помощью функции writeln