Вопрос по информатике:
Pascal введите с клавиатуры массив m из n элементов целого типа,нумерация элементов начинается с 1 и найти произведение четных элементов. входные данные n=5 1 2 3 4 5 выходные данные 8
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.04.2015 21:19
- Информатика
- remove_red_eye 1694
- thumb_up 36
Ответы и объяснения 1
var b: integer;
writeln('Введите n');
readln(b);
writeln('Имеем последовательность');
var a := Range(1, b);
a.Println();
writeln('Произведение четных равно');
Writeln(a.Where(x -> x mod 2 = 0).Aggregate(1, (p, x) -> p * x));
end.
- 18.04.2015 17:31
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.