Для заданного массива найти среднее геометрическое всех его элементов. Если можно, с объяснением. Но и без него тоже хорошо.

var i,n,p:integer;

a:array[1..10000] of integer;

begin

p:=1;

readln(n); {Вводится количество элементов массива}

for i:=1 to n do begin readln(a[i]); p:=p*a[i]; end; {Вводится каждый элемент массива и умножается на произведение ранее введённых}

writeln(exp(ln(p)/n)); {Вывод среднего арифметического -   корень степени n из произведения всех элементов массива}

end.