[maxmaslo]

Дан одномерный массив. Нужно посчитать значение функции.

Код:

function G:real;
var i,k:integer;
begin
s:=0;
p:=1;
for i:=1 to n do
for k:=1 to i do
begin
s:=s+x[k];
p:=p*x[i]/s;
summa:=p;
p:=p*x[i]/summa;
G:=p;
end;
end;