только что увидила что есть еще последняя задача )))

дан одновременный массив из п положительных чисел . составить программу вычисления их : среднего геометрического

1

Ответы и объяснения

2013-01-21T16:35:38+04:00

var
a: array [1..100] of integer;
i, n, с: integer;
s : longint;
begin
readln (n);
for i := 1 to n do read (a[i]);
s := 1;
с := 0;
for i := 1 to n do
begin
s:=s*a[i];
inc(с);
end;
writeln (exp((1/с)*ln(s)));
end.