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

// 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)
end.

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