Задан массив a[m].

[Ghyt]

Задан массив a[m].Известно что все элементы >0.Получить среднее геометрическое A0,....,Am-1.
Помогите написать программу с комментариями пожалуйста.

[newerow1989]

const m=10;//размерность массива
var a:array[0..m-1] of integer;//массив
    i{для цикла},pr{произведение всех элементов массива}:integer;
    Result:real;
begin
   Randomize;//генерация случайных чисел
   For i:=0 to m-1 do
   begin
      a[i]:=Random(20);//задать случайные числа в диапазоне [0; 20)
      Write(a[i],'  ');//распечатать массив
   end;
   Writeln('');//то же самое, что и Enter
   pr:=1;//ставим 1, т.к. число*1=число
   For i:=0 to m-1 do
      pr:=pr*a[i];//считаем произведение всех элементов массива
   Result:=exp(ln(pr)/m);//по формуле среднего геометрического
   Writeln(Result);//выдаем результат на экран
   Readln;
end.

Сойдет?

[Ghyt]

нужно на C++

[newerow1989]

Я знаю только Паскаль. Я не знаю C++