Question

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

Answer 1

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

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

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

КОН Задание.