Developing.ru

Сформировать квадратную матрицу порядка n по заданному образцу[ATTACH]1959[/ATTACH]

for i:=1 to n do
for j:=1 to n do
if (i=1) or (j=1) or (i=n) or (j=n) then A[i,j]:=1
else A[i,j]:=0;