Вопрос по информатике:
Дан массив из 30 элементов. заполнить его случайными числами в диапазоне от 0 до 1000. Вывести исходный массив на экран. Найти сумму и произведение
элементов массива, которые кратны 3 и чётные
- 25.08.2018 14:05
- Информатика
- remove_red_eye 8073
- thumb_up 48
Ответы и объяснения 1
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var a:=ArrRandom(30,0,1000); a.Println;
var b:=a.Where(x->(x mod 3=0) and x.IsEven).ToArray;
Writeln('S=',b.Sum,
',P=',b.Aggregate(Biginteger(1),(p,x)->p*x))
end.
Тестовое решение:
453 973 15 259 435 909 507 330 884 828 249 48 114 641 344 264 334 875 940 691 978 571 342 802 536 720 783 924 634 278
330 828 48 114 264 978 342 720 924
S=4548,P=87834214293386467737600
- 26.08.2018 14:04
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.