Дана последовательность чисел, найти сумму отрицательных - вопрос №9555180 от Dzhemre69 20.05.2022 13:27

Question

Информатика: Дана последовательность чисел, найти сумму отрицательных элементов ( в pascal )

Dzhemre69 · Answer

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

begin

ReadSeqInteger('Вводите:', ReadInteger('n='))

.Where(t -> t < 0).Sum.Println

end.

Примерn= 7Вводите: 13 -27 52 0 5 -10 -42-79