Вопрос по информатике:
Дан целочисленный одномерный массив, состоящий из N элементов. Найти произведение нечетных элементов массива.
Пожаловаться
- 22.01.2016 08:33
- Информатика
- remove_red_eye 4640
- thumb_up 47
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Произведение нечетных равно ',
a.Where(x->x.IsOdd).Aggregate(BigInteger(1),(x,y)->x*y))
end.
Пример
n= 40
-88 11 83 20 82 -8 18 52 51 96 -58 8 76 -70 -8 -33 -97 -11 17 42 -2 43 94 -81 19 -25 -99 86 -6 -55 14 35 -51 28 51 44 11 2 -46 -9
Произведение нечетных равно -2262855352516738717811968125
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Произведение нечетных равно ',
a.Where(x->x.IsOdd).Aggregate(BigInteger(1),(x,y)->x*y))
end.
Пример
n= 40
-88 11 83 20 82 -8 18 52 51 96 -58 8 76 -70 -8 -33 -97 -11 17 42 -2 43 94 -81 19 -25 -99 86 -6 -55 14 35 -51 28 51 44 11 2 -46 -9
Произведение нечетных равно -2262855352516738717811968125
Пожаловаться
- 23.01.2016 16:19
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы