Question

ПОМОГИТЕЕЕЕЕЕЕЕЕЕЕЕ ПОЖАЛУЙСТА

как в двумерном массиве вывести числа таким образом?
1 2 3 4 5 6 7 8 9 10
0 1 2 3 4 5 6 7 8 9
0 0 1 2 3 4 5 6 7 8
0 0 0 1 2 3 4 5 6 7
0 0 0 0 1 2 3 4 5 6
0 0 0 0 0 1 2 3 4 5
0 0 0 0 0 0 1 2 3 4
0 0 0 0 0 0 0 1 2 3
0 0 0 0 0 0 0 0 1 2
0 0 0 0 0 0 0 0 0 1

Answer 1

Var
  a: array[1..10, 1..10] of integer;
  i, j, k: integer;

begin
  k := 1;
  for i := 1 to 10 do 
  begin
    for j := 1 to 10 do 
    begin
      if(j >= i) then begin
        a[i, j] := k;
        k += 1;
      end
      else a[i, j] := 0;
      write(a[i, j]:3);
    end;
    k := 1;
    writeln();
  end;
end.