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

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

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

type
  myArr= Array[1..7] of integer;
var i: integer; a: myArr;

  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. 

type
  myArr= Array[1..7] of integer;
var i: integer; a: myArr;

  begin

  for i:=low(a) to high(a) do
      readln(a[i]);

  for i:=low(a) to high(a) do
      write(a[i],' ');
  readln();
  end.