Question

Ввести массив А. Если в массиве положительных элементов больше, чем отрицательных, то найти сумму всех элементов массива.

Answer 1

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 =====