[Dark King]

PHP код:

power(a,b:real):real; 


- возведение числа в степень

PHP код:

function sred_geom(a:array of real; n:integer):real;//n - кол-во чисел в масиве
var pr:real;
     i:integer;
begin
pr:=1;
for i:=1 to n do begin 
 if a[i]<>0 then pr:=pr*a[i];
end;
sred_geom:=power(pr,1/n);
end;