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

1 0 0 ... 0 0 1

1 1 0 ... 0 1 1

1 1 1 ... 1 1 1

...

1 1 0 ... 0 1 1

1 0 0 ... 0 0 1

Const

n = 10;

var

matrix : array [1 ... n] of array [1 ... n] of integer;

i, j, max : integer;

begin

{формирование матрицы}

for j : = 1 to n do

begin

if j < = Trunc (n / 2) then {находим последний индекс для вставки 1}

max : = j

else

max : = n - j + 1;

for i : = 1 to max do {заполняем линию единицами}

begin

matrix[j][i] : = 1;

matrix[j][n - i + 1] : = 1;

end;

end;

{вывод матрицы (если не нужно, удалите код) }

for j : = 1 to n do

begin

for i : = 1 to n do

write (matrix[j][i], ' ') ;

writeln;

end;

end.