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

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

Задайте в коде программы массив из чисел семи чисел:
1 12 45 6 7 18 99
Затем обойдите это массив, выводя его значения на экран.

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