[maxmaslo]

Нужно рассчитать функцию. Получается последний элемент массива.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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;

Админ: Как ранее и предупрждалось - при рецедиве в бан, на пару дней.