задача 5 урок 15

задача 5 урок 15

У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом:

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17

ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).

program task_5_lesson_15;
var a: array[1..17] of integer;
  i, max, c: integer;
begin
  for i := low(a) to high(a) do
    a[i] := i;
  i := 1;
  c := 0;
  max := 1;
  while i <= high(a) do
    begin
      write(a[i], ' ');
      i += 1;
      c += 1;
      if (c = max) then
        begin
          c := 0;
          max += 1;
          writeln();
        end;
    end;
  readln
end.