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

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

n 0 0 ... 0 0 0 0 n-1 0 ... 0 0 0 0 0 n-2 ... 0 0 0 . . . . . . . . . . . . . . . . . .. . . 0 0 0 ... 0 2 0 0 0 0 ... 0 0 1 Решите кто-нибуть пожалуйста очень нужно!!!

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

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

program 123;
uses crt;
var a:array[1..20,1..20]of byte;
    n,i,j:byte;
begin
clrscr;
write('n=');
readln(n);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if i=j then a[i,j]:=(n-i+1) else a[i,j]:=0;
    write(a[i,j]:4);
   end;
  writeln;
 end;
readkey;
 end.

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

В данном коде происходит формирование квадратной матрицы порядка n по заданному образцу.

Создается переменная a, которая представляет собой матрицу порядка n.
Задается значение переменной n, которое является размером матрицы.
Запускается цикл for i:=1 to n do, который проходит по каждому элементу матрицы.
Внутри цикла запускается вложенный цикл for j:=1 to n do, который проходит по второму измерению матрицы.
Внутри вложенного цикла проверяется условие if i=j, которое определяет, является ли текущий элемент диагональным.
Если условие истинно, то в соответствующий элемент матрицы записывается значение n-i+1.
Если условие ложно, то в элемент матрицы записывается значение 0.
После завершения вложенного цикла выводится значение элемента матрицы с помощью функции write.
После завершения внешнего цикла выводится символ новой строки с помощью функции writeln.
Запускается функция readkey, которая ожидает ввода пользователя.
Программа завершается.