Дан массив M в интервале от -15 до 30; Найти сумму и количество отрицательных элементов.
Дан массив 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
Не нашли ответ?
Похожие вопросы