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