Заполнить массив и вывести в виде таблицы - PascalABC.NET

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

Заполнить массив следующими значениями и вывести в виде таблицы. 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1

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

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

var
  Matrix: array [1..5, 1..8] of integer;
  i, j: integer;
 
begin
  for j := 1 to 8 do
  begin
    for i := 1 to 5 do
    begin
      if j mod 2 = 0 then
        Matrix[i][j] := 1
      else
        Matrix[i][j] := 0;
    end;
  end;
  for i := 1 to 5 do
  begin
    for j := 1 to 8 do
    begin
      write(Matrix[i][j]);
      write(' ');
    end;
    writeln;
  end;
end.

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

Создается двумерный массив типа integer размером 5x8, инициализированный нулями.
В первой вложенной циклом перебираются числа от 1 до 5, а во второй вложенной циклом перебираются числа от 1 до 8.
Если число от 1 до 8 (значение переменной j) делится на 2 без остатка, то элемент массива по индексу (значение переменной i) заполняется единицей, иначе нулем.
После заполнения массива, значения элементов выводятся в консоль в виде таблицы 5х8, где каждый элемент выводится с пробелом, а строка завершается переносом строки.