[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;

[icWasya]

Как-то так

Код:

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