//Задание 2.98 Кучеренко
Begin
var AU: array[0..100] of real;
var n: integer;
write('Vvedite kol-vo elementov massiva: ');
readln(n);
var i: integer;
var mult: real;
mult := 1;
for i := 0 to n - 1 do
begin
write('AU[', i + 1, ']=');
readln(AU[i]);
if AU[i] > 0 then
begin
mult := mult * AU[i];
end;
end;
var geom: real;
geom := exp(ln(mult) * 1 / n);
writeln('Srednee geom polozhit chisel = ', geom);
end.
Comments
0 B
|👍
/👎
0 B
|👍
/👎