Задача 1 Урок 15
Primary tabs
Задайте в коде программы массив из семи чисел:
1 12 45 6 7 18 99
Затем обойдите это массив, выводя его значения на экран.
type myArr = array[1..7] of integer; var a: myArr; i : integer; begin a[1] := 1; a[2] := 12; a[3] := 45; a[4] := 6; a[5] := 7; a[6] := 18; a[7] := 99; for i := low(a) to high(a) do write(a[i],' '); readln(); end.
Вывод консоли:
1 12 45 6 7 18 99
- Log in to post comments
- 262 reads