Заполнить двумерный массив как показано ** рисунке. Нужно ** языке Паскаль.

Question

Заполнить двумерный массив как показано на рисунке.
Нужно на языке Паскаль.

---

Answer 1

ПаскальАВС.НЕТ

var
  a:array[1..7,1..7]of integer;
  i,j:integer;
begin
j:=7;
for i:=1 to 7 do
  begin
  a[i,i]:=1;
  a[i,j]:=1;
  j:=j-1;
  end;
for i:=1 to 7 do
  begin
  for j:=1 to 7 do  write(a[i,j]:3);
  writeln;
  end;
end.