Получить действительную квадратную матрицу порядка 8, элементами которой расположенные по заданной схеме - Pascal ABC

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

Даны действительные числа a1,...,a64. Получить действительную квадратную матрицу порядка 8, элементами которой являются числа a1,..., a64, расположенные в ней по схеме Под б

Решение задачи: «Получить действительную квадратную матрицу порядка 8, элементами которой расположенные по заданной схеме»

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

const n=8;
var a:array[1..n*n] of real;
    b:array[1..n,1..n] of real;
    i,j,k:integer;
begin
randomize;
writeln('Последовательность А');
for i:=1 to n*n do
 begin
  a[i]:=10*random;
  write(a[i]:5:2);
 end;
writeln;
k:=0;
i:=0;
repeat
inc(i);
if odd(i) then //если строка нечетная
for j:=n downto 1 do//идем с конца
 begin
  inc(k);
  b[i,j]:=a[k]
 end
else //если четная строка
for j:=1 to n do
 begin
  inc(k);
  b[i,j]:=a[k];
 end;
until k=n*n;
writeln('Матрица змейкой сверху вниз, справа налево');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(b[i,j]:5:2);
  writeln;
 end;
end.

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

Переменная n инициализируется значением 8.
Создается переменная a типа array[1..nn] of real. Это означает, что a представляет собой массив из nn элементов типа real.
Создается переменная b типа array[1..n,1..n] of real. Это означает, что b представляет собой массив размером n на n, где каждый элемент имеет тип real.
Определяются три переменные i, j и k, которые будут использоваться в цикле.
Запускается цикл randomize, который используется для инициализации генератора случайных чисел.
Выводится последовательность А с помощью цикла for i:=1 до nn do. Внутри цикла каждый элемент массива a[i] инициализируется значением 10random, то есть случайным числом от 0 до 9. Затем выводится значение a[i] с помощью функции write.
После завершения цикла выводится символ новой строки.
Инициализируется переменная k значением 0.
Запускается цикл repeat, который будет выполняться до тех пор, пока k не станет равным n*n.
Если текущая строка (i) нечетная, то внутри цикла for j:=n downto 1 do идет обращение к элементам массива a с индексами, начиная с k. Значение каждого элемента присваивается переменной b[i,j].
Если текущая строка (i) четная, то внутри цикла for j:=1 до n do идет обращение к элементам массива a с индексами, начиная с k. Значение каждого элемента присваивается переменной b[i,j].
После завершения цикла повторяется выводиться последовательность A с помощью цикла for i:=1 до n*n do.
Выводится последовательность B, которая представляет собой матрицу змейкой сверху вниз и справа налево. Для этого используется цикл for i:=1 до n do и внутри него цикл for j:=1 до n do. Выводится значение b[i,j] с помощью функции write.
Выводится символ новой строки.
Конец программы.