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