Цитата:
Сообщение от Kapri
A(N) Найти среднее геометрическое элементов массива A ai>0, N≤50
|
Ладно, тут задачка с подковыркой - желательно избежать появления очень больших чисел. Потому выложу своё решение:
Код:
Var
N:Byte;
A:Array[1..50] of Real;
S:Real;
i:Integer;
BEGIN
Write('N= ');
ReadLn(N);
Randomize;
S:=0;
For i:=1 to N do
begin
A[i]:=(Random+0.1)*90;
Write(A[i]:8:3);
S:=S+Ln(A[i]);
end;
WriteLn;
WriteLn('Geometric mean is ',Exp(S/N):8:3);
ReadLn;
END.