Дан массив 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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
