Вычислить среднее геометрическое значение элементов заданного массива F (19), которые больше по абсолютной величине от числа А

[doker___]

Вычислить среднее геометрическое значение элементов заданного массива F (19), которые больше по абсолютной величине от числа А. Результат вывести на печать. Значение среднего геометрического элементов является велечина

[Serge_Bliznykov]

что, сложная программа, да?

пишу прямо на форуме, в браузере, с ошибки/опечатки отвественность не несу

const N = 19;
var
 F:array[1..N] of extended;
 A, S : extended;
 i, k : integer;
begin
  for i:=1 to N do begin Write('Введите F[',i,'] : '); Readln(F[i]); end;
  Write('Введите A :'); Readln(A);
  S := 1;
  k := 0;
  for i:=1 to N do 
    if abs(F[i])>abs(A) then  begin
         S := S * F[i];
         inc(k)
    end;

  if k=0 then WriteLn('Таких чисел нет')
  else 
    WriteLn('Среднее геометрическое равно ', power(S, 1/k):8:4);
  readln
end.

ups. прошу простить за код на Паскале, не обратил внимание на раздел...

[doker___]

мне нужно в С++