составьте программу выводящую на экран значения любого элемента массива В [10] вещественных чисел, по введеному с клавиатуры индексу.

Программа позволяет заполнить массив из десяти элементов, после чего предлагает вводить индексы элементов массива. По введенному индексу выводится элемент массива. Программа завершает работу, если задать индекс 10. Выход после вывода элемента на экран.

program array1;

var

a: array [0 ... 10] of integer;

n: integer;

begin

a[0]:=0;

for i:integer:=1 to 10 do

Begin

Write ('a[', i,']=');

Read (a[i]);

end;

n:=1;

while n<10 do

begin

Write ('Enter index ');

readln (n);

writeln ('a[', n, '] = ', a[n]);

end

end.