Дан массив M в интервале от -15 до 30; Найти сумму и количество отрицательных элементов.

Question

Дан массив M в интервале от -15 до 30; Найти сумму и количество отрицательных элементов.

Answer 1

// PascalABC.NET 3.0, сборка 1128
begin
  var n:=ReadInteger('n=');
  var M:=ArrRandom(n,-15,30).Println(',');
  WriteLnFormat('Сумма {0} отрицательных элементов равна {1}',
    M.Where(x->x<0).Count,M.Where(x->x<0).Sum)<br>end.

Тестовое решение:
n= 13
-6,-4,-3,-2,20,0,-13,0,-11,9,15,-11,-8
Сумма 8 отрицательных элементов равна -58

Comments

это не массив...

---

Если Вы чего-то не понимаете, то не надо это безапелляционно утверждать.

---

Сначала посмотрите в справочной системе, какой тип имеет объект, созданный методом ArrRandom, а потом уже делайте свои заявления.

---

Окей, спасибо, извините за  "наезады"...