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

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

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

1 12 45 6 7 18 99

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

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