Массив: Сформировать квадратную матрицу порядка n по заданному числу - Pascal

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

Сформировать квадратную матрицу порядка n по заданному числу 100001 100021 100301 104001 150001 600001

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

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

const
  MAX_N = 100;
var
  n, i, j: integer;
  a: array[1..MAX_N, 1..MAX_N] of integer;
begin
  read(n);
  for i := 1 to n do
    for j := 1 to n do
      if i = n - j + 1 then a[i, j] := i
      else if (j = 1) or (j = n) then a[i, j] := 1
      else a[i, j] := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]);
    writeln
  end;
end.

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

В данном коде формируется квадратная матрица порядка n по заданному числу. Сначала объявляются переменные:

n - число строк матрицы, которое читается с консоли;
i и j - переменные для прохода по строкам и столбцам матрицы;
a - массив для хранения элементов матрицы. Далее происходит заполнение матрицы. Для этого используется два вложенных цикла: внешний цикл идет от 1 до n, внутренний - от 1 до n. В каждой итерации внутреннего цикла проверяется условие: если i = n - j + 1, то a[i, j] = i (это заполнение основной диагонали матрицы); если j = 1 или j = n, то a[i, j] = 1 (это заполнение верхней и нижней диагоналей матрицы); в остальных случаях a[i, j] = 0 (это заполнение остальных элементов матрицы). После заполнения матрицы происходит вывод ее элементов на экран. Для этого используется еще один цикл: внешний цикл идет от 1 до n, внутренний - от 1 до n. В каждой итерации внутреннего цикла выводится элемент a[i, j]. Таким образом, данный код формирует квадратную матрицу порядка n и выводит ее элементы на экран.