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

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

Задайте в коде программы массив из чисел семи чисел:

1 12 45 6 7 18 99

Затем обойдите это массив, выводя его значения на экран.

var i: integer;
    a: array [1..7] of 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