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

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

Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.

Решение:

program u15z02;
var i:integer;
  a: array [1..7] of integer;
begin
  for i:=low(a) to high(a) do
  begin
    write('vvedite chislo - ');
    readln(a[i]);
  end;
  for i:=low(a) to high(a) do
    write(a[i],' ');
  readln();
end.      

Консоль:

vvedite chislo - 1
vvedite chislo - 2
vvedite chislo - 3
vvedite chislo - 4
vvedite chislo - 5
vvedite chislo - 6
vvedite chislo - 7
1 2 3 4 5 6 7