Pascal среднее геометрическое

[iCaesy]

Задание :

13 Обчислити середнє геометричне парних елементів масиву К(20), не менших від 10

Код:

program S_5;
uses crt;
Var a:array[1..10] of integer;
i,p:integer; geom:real;
Begin
Write ('Vvedite  massiv: ');
for i:=1 to 10 do read(a[i]);
p:=1;
for i:=1 to 10 do
begin
if (a[i]>10) and (a[i] MOD 2 = 0) then
P:=p*a[i];
geom:=sqrt(p);
end;
writeln('Srednee geometricheskoe: ',geom);
end.

Препод говорит не верно, в чем ошибка ?

[Hacker19_90]

неверно ибо вы ищете произведение, а потом из произведения берёте кв. корень! посмотрите в интернете как искать среднее геометрическое!

[Ky3Heu,]

Среднее геометрическое рассчитывается по формуле: (x1*x2*x3*...*xn)1/n, где n - количество элементов. 1/n - это степень.

[val_nnm]

Что значи парных? (чётных или повторяющихся)

Если чтитать что чётных а также считать чточисел больших или равных 10. То будет примерно так.

program S_5;
uses crt;
Var a:array[1..10] of integer;
i,n:integer; p, geom:real;
Begin
  Write ('Vvedite  massiv: ');
  for i:=1 to 10 do read(a[i]);
  p:=1;
  n := 0;
  for i:=1 to 10 do
  begin
    if (a[i]>=10) and (a[i] MOD 2 = 0) then
    begin
      P:=p*a[i];
      n := n+1;
    end;
  end;
  geom:= exp(ln(p)/n);
  writeln('Srednee geometricheskoe: ',geom);
end.

p.s. Код непроверял.