Найти среднее геометрическое элементов массива, принадлежащих [a, b]. Количество...

Question

Найти среднее геометрическое элементов массива, принадлежащих [a, b]. Количество элементов и границы ввести с клавиатуры.

Comments

Значения элементов могут принадлежать интервалу [a, b]? А откуда их брать тогда?

---

В задаче это не указано. Рандомные, наверное

Answer 1

Ну раз значения случайные, тогда так.

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

ПЕР
  a, b, кол, сч: ЦЕЛ;
  массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
  ср_г: ВЕЩ;

УКАЗ
  кол := Приём.Число();
  Вывод.Цепь("^");
  a := Приём.Число();
  Вывод.Цепь(" ");
  b := Приём.Число();
  Вывод.Цепь("^");
  СОЗДАТЬ(массив, кол);
  ОТ сч := 0 ДО кол - 1 ВЫП
    массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * (b - a + 1))) + a
  КОН;
  ср_г := 1;
  ОТ сч := 0 ДО кол - 1 ВЫП
    ср_г := ср_г * массив[сч]
  КОН;
  ср_г := Матем.степВВ(ср_г, 1 / кол)
  Вывод.ЧВещ("^%g", ср_г, 0, 0, 0)

КОН Задание.