Задача 5 Урок 15
Primary tabs
У вас есть массив чисел от 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.
- Log in to post comments
- 848 reads