Урок 15 (решенная задача номер 1)

Урок 15 (решенная задача номер 1)

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

1 12 45 6 7 18 99

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

var arr: array[1..7] of integer;
  i : 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 := 1 to high(arr) do
    write(arr[i],' ');
end.