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

0 голосов
25 просмотров

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


Информатика (20 баллов) | 25 просмотров
Дан 1 ответ
0 голосов

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

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

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

КОН Задание.