Question

Дан массив из 10 элементов. Найти среднее геометрическое элементов с нечетными порядковыми номерами ​

Answer 1

===== PascalABC.NET =====

begin

 var n := 10;

 var a := ArrRandom(n, 1, 99);

 a.Println;

 var b := a[::2];

 var r := b.Product ** (1 / b.Length);

 r.Println

end.