Сформировать квадратную матрицу порядка n по заданному образцу - Pascal ABC (16809)

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

Сформировать квадратную матрицу порядка n по заданному образцу: n n-1 n-2 … 3 2 1 n-1 n-2 n-3 … 2 1 0 n-2 n-3 n-4 … 1 0 0 …………………………… 1 0 0 … 0 0 0 Спасибо за помощь

Решение задачи: «Сформировать квадратную матрицу порядка n по заданному образцу»

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

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:integer;
begin
repeat
write('Размер матрицы до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j<=n-i+1 then a[i,j]:=n-i-j+2
    else a[i,j]:=0;
    write(a[i,j]:3);
   end;
  writeln;
 end;
end.

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

Данный код на языке Pascal ABC предназначен для формирования квадратной матрицы порядка n по заданному образцу. В начале кода объявляются необходимые переменные: nmax - максимальное значение размера матрицы, a - массив для хранения матрицы, n, i, j - переменные для прохода по матрице. Далее происходит цикл повторения, в котором пользователю предлагается ввести размер матрицы. После этого выводится сообщение с размером матрицы и предлагается ввести значение n. Цикл продолжается до тех пор, пока n не будет в пределах от 1 до nmax. Затем следует цикл for, который проходит по каждой строке матрицы. Внутри цикла проверяется условие j<=n-i+1. Если это условие выполняется, то в соответствующую ячейку матрицы записывается значение n-i-j+2. В противном случае, ячейка матрицы остается равной 0. После этого выводится значение ячейки матрицы. По завершении каждой строки выводится символ новой строки, чтобы каждая строка матрицы была на новой строке. Конечная часть кода выводит исходную матрицу.