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

Если не трудно, можно старую программу массива? Учитель просто сразу заподозрит.

Я не понимаю термина "старая программа массива".

В упрощенном варианте, просто пример, который показывал преподаватель был точно не в 3 строчки. Именно это смущает.

Ну это проблема Вашего преподавателя и Вас, если Вас обучают по допотопной методике. Во многих школах уже учат писать именно так. Если Вам надо конкретный стиль программирования - указывайте в вопросе. А Вы даже версию Паскаля не указали!

К сожалению, я не успел посмотреть версию.

// 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