Вопрос по информатике:
Помогите пожалуйста, очень срочно!
Среди N введённых с клавиатуры целых чисел найти кол-во и сумму нечетных отрицательных и произведение кратных 5 не равных 0.
- 27.06.2017 04:38
- Информатика
- remove_red_eye 12512
- thumb_up 47
Ответы и объяснения 1
//PascalABC.Net 3.1.0.1200
begin
var a := ReadArrInteger(ReadInteger('n ='));
Println(a);
var b := a.Where(x -> (x mod 2 0) and (x < 0)).ToArray;
Println(b.Count);
Println(b.Sum);
Println(a.Where(x -> (x 0) and (x mod 5 = 0)).Aggregate(1, (p, x)-> x * p));
end.
- 28.06.2017 19:13
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.