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.