Каллиник
6 год назад
Дан массив к20. вычислить сумму отрицательных элементов
ОТВЕТЫ
Hristodul
Jul 22, 2019
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var k:=ArrRandom(20,-30,30); k.Println;
Writeln(Сумма отрицательных: ,k.Where(x-gt;xlt;0).Sum)
end.
Пример
2 6 -21 8 27 -24 -5 29 -25 25 -19 28 6 20 7 2 14 2 4 16
Сумма отрицательных: -94
// Внимание! Если программа не работает, обновите версию!
begin
var k:=ArrRandom(20,-30,30); k.Println;
Writeln(Сумма отрицательных: ,k.Where(x-gt;xlt;0).Sum)
end.
Пример
2 6 -21 8 27 -24 -5 29 -25 25 -19 28 6 20 7 2 14 2 4 16
Сумма отрицательных: -94
222
Смежные вопросы:
