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-печать документа
// Внимание! Если программа не работает, обновите версию!
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