Вопрос по информатике:
Дано N целых чисел, сгенерированных случайным образов в диапазоне -100, 100. Найти произведение всех чисел > 5.
Пожаловаться
- 14.03.2018 05:45
- Информатика
- remove_red_eye 14519
- thumb_up 6
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;
Writeln('П= ',a.Where(k->k>5).Aggregate(BigInteger(1),(p,q)->p*q))
end.
Пример
n= 50
-5 42 31 99 39 62 31 -41 -88 73 -60 95 69 -31 -12 39 16 31 -63 40 -52 -57 86 87 71 -82 -24 60 -11 -57 11 -26 -57 27 -82 3 9 -3 -83 -11 62 -56 95 -66 -49 -16 80 58 26 22
П= 4764546458283894070551668787355317043200000
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;
Writeln('П= ',a.Where(k->k>5).Aggregate(BigInteger(1),(p,q)->p*q))
end.
Пример
n= 50
-5 42 31 99 39 62 31 -41 -88 73 -60 95 69 -31 -12 39 16 31 -63 40 -52 -57 86 87 71 -82 -24 60 -11 -57 11 -26 -57 27 -82 3 9 -3 -83 -11 62 -56 95 -66 -49 -16 80 58 26 22
П= 4764546458283894070551668787355317043200000
Пожаловаться
- 15.03.2018 11:06
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы