sumOfPositive[a_] := Plus @@ (If[# > 0, #, 0] & /@ a)
Пример: sumOfPositive[{1, 3, -3, 4, 5, -7, 8, 0, -11, 5}]
Результат: 26
sumOfPositive[a_] := Plus @@ (If[# > 0, #, 0] & /@ a)
Пример: sumOfPositive[{1, 3, -3, 4, 5, -7, 8, 0, -11, 5}]
Результат: 26