Среднее геометричное(Pascal)

[Progerr]

Проблема с задачей у меня, не могу понять как вычислить среднее геометрическое.Кто поможет,тому спасибо огромное.
Формула,кто не знает:a1*a2*...*an под квадратным коренем в степени n

[Stilet]

p:=a[1];
for i:=2 to n do p:=p*a[i]; p:=exp(n*ln(p));

Если не ошибаюсь.

[BDA]

Еще не стоит забывать о случае, когда произведение всех элементов будет отрицательным.

[Mad_Cat]

for i:=2 to n do p:=p*a[i]; p:=exp(1/n*ln(p));

[Progerr]

А существуют другие способы решения? Я просто еще не знаю что такое ln,exp.(Википедия не поможет,проверял).

[BDA]

Вряд ли.
Вам ведь нужно взять корень n-ой степени от числа, а самим легким способом является выражение через экспоненту (это слово точно есть в Википедии).
Пусть у нас есть число A из которого нужно взять корень n-ой степени, то есть возвести в 1/n степень.
A^(1/n)
О понятии логарифма прочтете в той же Википедии.
Натуральный логарифм является обратной функцией к экспоненциальной.
Натуральный логарифм от числа А - число (показатель степени), в которую нужно возвести число е (основание логарифма), чтобы получить А.
То есть А = e^(lnA)
Но нам требуется A^(1/n), тогда: A^(1/n) = e^((lnA)*1/n)

[s-andriano]

Сообщение от Progerr

А существуют другие способы решения?

Существуют.
Но Вам привели самый простой. Все остальные существенно сложнее.

Я просто еще не знаю что такое ln,exp.(Википедия не поможет,проверял).

Тогда, может, надо начать с того, что выяснить это? (ключевые слова "логарифм" и "экспонента")