В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
avetisgrigoryan
avetisgrigoryan
17.04.2021 23:05 •  Информатика

Ввести одномерный массив a из 15 элементов. определить в нём среднее элементов, стоящих на нечётных позициях. pascal

Показать ответ
Ответ:
Aleksandr31821
Aleksandr31821
08.10.2020 20:48
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.

Ввести одномерный массив a из 15 элементов. определить в нём среднее элементов, стоящих на нечётных
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота