Задача на массив легкая но с заморочкой решите плз

[Ruster]

Дан массив Y(20)/ Вычислить среднее геометрическое элемента массива Y при условии y(i)>0

[Sazary]

Я так понял, что нужно вычислить среднее геометрическое элементов массива, которые >0.

uses crt;
const n=20;
var
Y : array[1..n] of integer;
gm : double;
i,k : integer;
begin
clrscr;
randomize;
for i:=1 to n do
 begin
 y[i] := random(15)-5;
 write(y[i],' ');
 end;
writeln;
writeln('--------');
{-------}
k:=0;
gm:=1;
for i:=1 to n do
  if y[i]>0 then begin
                 gm := gm*y[i];
                 inc(k);
                 end;
gm := exp(ln(gm)/k);
writeln('Result= ',gm:7:4);

readln;
end.

[Ruster]

а ну да все правильно спасибо