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

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

Сформировать квадратную матрицу n-го порядка по данному образцу:

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

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

const n=8;
var a:array[1..n,1..n] of byte;
    i,j:byte;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(i in [1,n])or(j in [1,n])then a[i,j]:=1
    else a[i,j]:=0;
    write(a[i,j]:2);
   end;
  writeln;
 end;
end.

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

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