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

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