RGROP17
17.12.2020 06:38

с 3 и 4, Информатика 10 класс

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
BlaSta
10.05.2022 07:46
Ctrl+Tab-переключение между закладками или окнами одного приложения
Ctrl+Shift-переключить язык
Ctrl+Alt+Delete-открытие окна "Диспетчер задач" или "Безопасность Windows"
Ctrl+Shift+Esc-открытие окна "Диспетчер задач"
Ctrl+Esc-открытие/закрытие меню "Пуск"
Ctrl+C-копировать в буфер обмена
Ctrl+Insert-копировать в буфер обмена
Ctrl+V-вставить из буфера обмена
Ctrl+X-вырезать в буфер обмена
Ctrl+Z-отменить (назад)
Ctrl+Y-отменить (вперёд)
Ctrl+A-выделить всё
Ctrl+S-сохранить
Ctrl+W-закрыть текущую вкладку окна
Ctrl+R-обновить
Ctrl+Backspace-удалить слово (удаляет влево)
Ctrl+Delete-удалить слово (удаляет вправо)
Ctrl+Home (End)-переместить курсор в начало (конец) текста
Ctrl+Shift+Пробел-в Word: Неразрывный пробел
Ctrl+Shift+Дефис-в Word: Неразрывный дефис
Ctrl+Enter-в Word: Разрыв страницы
Ctrl+P-печать документа
0,0(0 оценок)
Ответ:
fggda98
13.07.2020 21:38
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandomReal(ReadInteger('n='),1,50);
  a.Println;
  Writeln('Сумма нечетных элементов : ',
      a.Where((x,i)->i.IsEven).Sum);
  Writeln('Произведение нечетных элементов: ',
      a.Where((x,i)->i.IsEven).Aggregate(1.0,(p,q)->p*q))
end.

Пример
n= 8
15.4810654863161 23.0172746381803 33.7221310123439 43.045114823638 9.12741185358139 5.36693139344777 24.408098445464 16.3833775466231
Сумма нечетных элементов : 82.7387067977054
Произведение нечетных элементов: 116304.750204143
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота