Вопрос по информатике:
Сформировать массив из 13 целых чисел из интервала от -15 до 25, подсчитать сумму положительных из них,иподсчитать произведение массива кратных 3, отсортировать массив в порядке возрастания
- 26.05.2016 13:30
- Информатика
- remove_red_eye 19885
- thumb_up 11
Ответы и объяснения 1
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
var a:=ArrRandom(13,-15,25);
a.Println;
Writeln('Сумма положительных ',a.Where(x->x>0).Sum);
Writeln('Произведение кратных трем ',
a.Where(x->x mod 3=0).Aggregate(1,(p,n)->p*n));
a.Sorted.Println
end.
Тестовое решение:
21 -5 14 -6 -6 -3 -11 -14 17 -7 -11 -5 21
Сумма положительных 73
Произведение кратных трем -47628
-14 -11 -11 -7 -6 -6 -5 -5 -3 14 17 21 21
- 27.05.2016 01:01
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.