Вопрос по информатике:
Дано натуральное число n,действительные числа А1...Аn.В последовательности получить удвоенную сумму всех положительных элементов.Решить в Паскале
- 14.09.2018 07:15
- Информатика
- remove_red_eye 8938
- thumb_up 6
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
var n:=ReadInteger('n=');
var a:=ReadSeqReal('Вводите элементы последовательности',n);
Writeln('Удвоенная сумма положительных равна ',2*a.Where(x->x>0).Sum)
end.
Пример
n= 5
Вводите элементы последовательности -3 5.1 3.2 -2.6 0
Удвоенная сумма положительных равна 16.6
- 15.09.2018 23:54
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.