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