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

Урок 15

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

type myArr = array[1..7] of integer;

var a: myArr;
    i: integer;

begin
  a[1] := 1;
  a[2] := 12;
  a[3] := 45;
  a[4] := 6;
  a[5] := 7;
  a[6] := 18;
  a[7] := 99;
  writeln('Elementi massiva');
  for i := low(a) to high(a) do
    write(a[i], ' ');
  readln();
end.

КОНСОЛЬ

Elementi massiva
1 12 45 6 7 18 99