Геом. прогрессия.

[exzi11]

Подскажите как искать геометрическую прогрессию из 15 целых чисел?

Дан массив из 15 целых чисел, введённых с клавиатуры. Вычислить среднее геометрическое положительных элементов.

[rus12]

Если правильно помню геометрическая прогрессия это корень n степени из произведения всех элементов:

 
const
   n=15;
   type
   arr=array [1..n] of integer;
  var
  a:arr;
  i,s,f:integer;
  sr:real;
  begin
   for i:= 1 to n do
      begin
        writeln('vvedite  ',i,'   element massiva');
        readln(a[i]);
      end;
    for i := 1 to n do
      begin
        write(a[i]:3);
      end;
      s:=1;
        for i:=1 to n do
        begin
           if a[i]>0 then
           begin
           s:=s*a[i];
             f:=f+1;
           end;
        end;
sr:=exp(ln(s)*1/f);
write(' ');
writeln( 'srednee geom=',sr:0:2);
   readln;
end.