Pascal. Задача 8-7

Заполнить двумерный массив (таблицу) чисел размером M x N, так чтобы числа от 1 до M⋅N шли в нем по возрастанию "ходом быка": "бык" начинает ход в левом верхнем углу и идет по строке направо, затем делает шаг вниз и по второй строке идет справа налево, в третьей строке снова слева направо и т.д. Вывести массив в виде таблицы.

Решение

const
 M = 5;
 N = 7;
var
  i, j : integer;
  a :array [1..M, 1..N] of integer;
begin
  for i := 1 to M do begin
    for j := 1 to N do
      if i mod 2 = 1 then
        a[i, j] := (i - 1) * N + j
      else
       a[i, j] := i * N - j + 1;
  end;
  for i := 1 to M do begin
    for j := 1 to N do
      Write(a[i, j]:4);
    Writeln();
  end;
end.

◄▲►