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

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\", Приём;

ПЕР
  B: РЯД 10 ИЗ ВЕЩ;
  индекс: ЦЕЛ;

УКАЗ
  ОТ индекс := 0 ДО РАЗМЕР(B) - 1 ВЫП
    B[индекс] := УЗК(Матем.случ())
  КОН;
  Вывод.Цепь("Введите индекс: ");
  индекс := Приём.Число();
  ЕСЛИ индекс >= РАЗМЕР(B) ИЛИ индекс < 0 ТО
    Вывод.Цепь("^ПНХ")
  ИНАЧЕ
    Вывод.ЧВещ("^%g", B[индекс], 0, 0, 0)
  КОН

КОН Задание.