Задача 6 Урок 15
Primary tabs
У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).
program u15z6; var a:array [1..17] of integer; var i,b,c:integer; begin c:=1; //максимальное кол-во чисел в строке for i:=low(a) to high(a) do begin write(i,' '); b:=b+1; //сколько выведено чисел if (b=c) then begin writeln(); c:=c+1; b:=0; end; end; readln(); end.
- Log in to post comments
- 334 reads