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

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