Информатика, опубликовано 2018-08-22 18:59:48 by Гость
Дано натуральное число n,действительные числа А1...Аn.В последовательности получить удвоенную сумму всех положительных элементов.Решить в Паскале
Ответ оставил Гость
// 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
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на