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

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

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

1 12 45 6 7 18 99

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

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
begin
  write(a[i],' ');
end;
readln();
end.