Question

Заполнить произвольный массив размером N x N (N <10) по следующему правилу: 10000 02000 00300 00020 00001

Answer 1

Var
  a: array[1..10, 1..10] of integer;
  i, j, n: integer;
  
begin
  write('Enter n: '); readln(n);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if i <> j then
        a[i, j] := 0
      else if i <= N div 2 then
        a[i, j] := i
      else
        a[i, j] := n - i + 1;
      write(a[i, j], ' ');
    end;
    writeln();
  end;
end.