Ввести массив А.
Если в массиве положительных элементов больше, чем отрицательных, то найти сумму всех элементов массива.
Ответы на вопрос
Ответил BobbyFresnel
0
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
if (a.Where(p -> p > 0).Count) > (a.Where(p -> p < 0).Count) then
a.Sum.Println;
end.
===== PascalABC.NET =====
Новые вопросы