Составить массив из нулей и единиц, относительно главной и побочной диагонали - PascalABC.NET

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

Доброго времени суток всем. Есть две задачки. Никак решить не могу. Итак, 1) Построить матрицу, состоящую из нулей и единиц, где единицы находятся только выше главной и побочной диагонали одновременно, а также на диагоналях. Вывести её.

Пример:

1 1 1 1 1 0 1 1 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 2) Построить матрицу, состоящую из нулей и единиц, где единицы находятся только ниже главной и побочной диагонали одновременно, а также на диагоналях. Вывести её.

Пример:

0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 1 0 1 1 1 1 1 Буду очень признателен за оказанную помощь.

Решение задачи: «Составить массив из нулей и единиц, относительно главной и побочной диагонали»

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

  for i:=1 to n do begin
    for j:=1 to n do begin
      if (j<=i) and (j>=n-i+1) then a[i,j]:=1
      else a[i,j]:=0;
    end;
  end;

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

Создается двумерный массив a размером n на n.
Заполняется массив a следующим образом:
- Если элемент a[i,j] соответствует условию (j<=i) and (j>=n-i+1), то он присваивается значение 1.
- В противном случае, a[i,j] присваивается значение 0.
Цикл выполняется от i=1 до n.
Внутри цикла выполняется еще один цикл по j от 1 до n.
Выполняется проверка условия (j<=i) and (j>=n-i+1).
Если условие выполняется, то a[i,j] присваивается значение 1.
Если условие не выполняется, то a[i,j] присваивается значение 0.
После завершения внутреннего цикла, происходит выход из внешнего цикла.