Урок 15 Задача 6

Урок 15 Задача 6:

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

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

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

var m : array [1..17] of integer;
  a, i, j : integer;
begin
  j:=1;                        // ограничитель количества чисел в строке, начинаем с 1
  for a:=low(m) to high(m) do
  begin
    write(a, ' ');             // выводим эл-ты массива в строку через пробел
    i:=i+1;                    // с каждым выводом увеличиваем счетчик чисел в строке на 1
    if (i=j) then              // когда счетчик чисел в строке сравняется с ограничителем,
    begin
      writeln ();              // происходит переход на новую строку
      j:=j+1;                  // ограничитель чисел в строке увеличиваем на 1
      i:=0;                    // сбрасываем счетчик чисел в строке
    end;
  end;
  readln();
end.

Вывод в консоли:

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