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

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