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

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

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

	
1 12 45 6 7 18 99

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

Решение:

var i:integer;
  a: array [1..7] of 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
    write(a[i],' ');
  readln();
end.          

Консоль:

1 12 45 6 7 18 99