Сформировать квадратную матрицу - Turbo Pascal (33542)

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

Сформировать квадратную матрицу по заданному образцу: 1 1 1 … 1 1 1 0 1 1 … 1 1 0 0 0 1 … 1 0 0 ………………………… 0 0 1 … 1 0 0 0 1 1 … 1 1 0 1 1 1 … 1 1 1 помогите пожалуйста) не могу понять как решить..

Код к задаче: «Сформировать квадратную матрицу - Turbo Pascal (33542)»

textual
  for i:=1 to n div 2 do
    for j:=i to n-i+1 do
    begin
      A[i,j]:=1; A[n-i+1,j]:=1;
    end;

7   голосов, оценка 3.714 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы