Question

4.3 Заполнить массив размерность 6 х 6 по правилу:

Answer 1

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