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

Урок 15

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

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

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

type myArr = array[1..17] of integer;

var a: myArr;
    i, k, l: integer;
begin
  k := 0;
  l := 1;
  for i := low(a) to high(a) do // наполнение массива данными
    a[i] := i;
  for i := low(a) to high(a) do // вывод элементов массива
  begin
    write(a[i], ' ');
    inc(k);
    if k = l then
    begin
      writeln();
      k := 0;
      inc(l);
    end;
  end;
  readln();
end.

КОНСОЛЬ

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