вычислить среднее геометрическое положительных элементов массива (a1,a2,...,a40), имеющих четные индексы. если таковых элементов нет, вывести на печать признак 0.
Выполнить нужно через массив в среде разработки Паскаль ABCNET
Выполнить нужно через массив в среде разработки Паскаль ABCNET
More Questions From This User See All
Answers & Comments
Verified answer
// PascalABC.NET 3.3begin
var n:=40;
var a:=ArrRandomInteger(n,-40,40); a.Println;
var b:=a.Where((x,i)->(x>0)and(i mod 2=0));
if b.Count=0 then writeln(0)
else writeln(power(b.Aggregate(1,(p,q)->p*q),1/b.Count));
end.
Пример (для n=10):
-19 38 -37 18 9 -5 17 29 19 -2
14.2718961622815