Question

Помогите пожалуйста решить в Паскале.
Заполнить произвольный массив размером N x N (N<10) по следующему правилу:
12345
54321
12345
54321
12345

Answer 1

const
  nn=10;
var
  i,j,n:integer;
begin
  Write('Введите число строк в массиве (2..9): ');
  Read(n);
  if (n<2) or (n>9) then writeln('Неверное значение')
  else
    for i:=1 to n do
    begin
      if (i mod 2)<>0 then for j:=1 to n do Write(j)
      else for j:=n downto 1 do Write(j);
      Writeln
    end
end.

Тестовое решение:
Введите число строк в массиве (2..9): 5
12345
54321
12345
54321
12345