Для заданного массива отыскать среднее геометрическое всех его частей. Если можно,

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.