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

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

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

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

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

program U15Z5;
var a: array[1..17] of integer=(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
t,k,i: integer;
begin
  t:=1;
  k:=1;
  for i:=a[1] to a[17] do
    begin
      write(a[i],' ');
      if (t=k) then
        begin
          writeln();
          k:=k+1;
          t:=0;
       end;
     t:=t+1;
   end;
   readln();
end.