дан массив к20. вычислить сумму отрицательных элементов

Дан массив к20. вычислить сумму отрицательных частей

Задать свой вопрос
1 ответ
// 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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт