Задача 1 Урок 15

Задача 1 Урок 15 :

Задайте в коде программы массив из семи чисел:
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