Question

Вот эту задачку на паскале, программа нужна. Двумерный массив.

Answer 1

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=MatrGen(n,n,(i,j)->i.IsEven?j+1:n-j); a.Println(3)
end.

Пример
n= 8
  1  2  3  4  5  6  7  8
  8  7  6  5  4  3  2  1
  1  2  3  4  5  6  7  8
  8  7  6  5  4  3  2  1
  1  2  3  4  5  6  7  8
  8  7  6  5  4  3  2  1
  1  2  3  4  5  6  7  8
  8  7  6  5  4  3  2  1