Информатика, опубликовано 2018-08-22 22:56:56 by Гость
Найти среднее геометрическое положительных элементов массива м(16) стающих на нечетных местах
Ответ оставил Гость
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var m:=ArrRandom(16,-99,99); m.Println;
var s:=m.Where((e,i)->i.IsEven and (e>0));
Writeln(Ср.геом. положительных на нечетных местах ,
Power(s.Aggregate(1.0,(p,e)->p*e),1/s.Count):0:4)
end.
Тестовое решение
12 58 -54 77 -68 -41 -79 -91 -18 -57 98 81 28 97 33 79
Ср.геом. положительных на нечетных местах 32.2864
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на