Задача 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.