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