2.98

//Задание 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.