Обработка двумерных массивов - Turbo Pascal

Формулировка задачи:

Здравствуйте, нужна помощь в построении массива. Никак не выходит придумать условие для цикла, чтобы массив выглядел в нужном виде. Нужно написать программу, которая будет формировать двумерный массив размера m x n. Массив вывести на экран с использованием форматирования. Массив должен получится в таком виде:

Решение задачи: «Обработка двумерных массивов»

Листинг программы

for i:=1 to n do begin
  for j:=1 to n-i+1 do a[i,j]:=j;
  for j:=n-i+2 to n do [i,j]:=n-i+1;
end;

Объяснение кода листинга программы

В данном коде выполняется обработка двумерного массива a размером n x n. В первой части цикла for i:=1 to n происходит заполнение главной диагонали массива a значениями от 1 до n. Во второй части цикла for j:=n-i+2 to n происходит заполнение обратной диагонали массива a значениями от n-i+1 до n. Таким образом, элементы массива a принимают значения согласно следующему алгоритму:

a[1,1] = 1
a[1,2] = 2
a[1,3] = 3 ... n. a[1,n] = n
a[2,1] = n
a[2,2] = n-1
a[2,3] = n-2 ... n-1. a[2,n-1] = 2 n. a[2,n] = 1 ... n-1. a[n-1,n-1] = n-1 n. a[n-1,n] = n
a[n,1] = n
a[n,2] = n-1
a[n,3] = n-2 ... n-1. a[n,n-1] = 2 n. a[n,n] = 1