Вопрос по информатике:
Ввести одномерный массив A из 15 элементов. Определить в нём среднее геометрическое элементов, стоящих на нечётных позициях.
Pascal
Пожаловаться
- 25.04.2018 00:10
- Информатика
- remove_red_eye 1275
- thumb_up 42
Ответы и объяснения 1
PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(15);
var s:=Range(0,a.Length-1,2).Select(i->a[i]);
Writeln('Среднее геометрическое элементов на нечетных позициях ',
(s.Aggregate(1.0,(p,q)->(p*q)))**(1/s.Count))
end.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(15);
var s:=Range(0,a.Length-1,2).Select(i->a[i]);
Writeln('Среднее геометрическое элементов на нечетных позициях ',
(s.Aggregate(1.0,(p,q)->(p*q)))**(1/s.Count))
end.
Пожаловаться
- 26.04.2018 09:20
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы