ПОМОГИТЕЕЕЕЕЕЕЕЕЕЕЕ ПОЖАЛУЙСТА как в двумерном массиве вывести числа таким образом? 1 2 3...

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

Comments

Непонятен вопрос. Как вывести содержимое двумерного массива, который уже заполнен данными, или как заполнить его и вывести?

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.

Comments

спасибо большое, что означает - k += 1 ?

---

сокращение от k:=k+1;

---

спасибо