Составить программу массив K(10)={1;0;3;5;2;-4;6;-2;0;7} найти сумму положительных и...

Question

Составить программу массив
K(10)={1;0;3;5;2;-4;6;-2;0;7}
найти сумму положительных и сумму отрицательных чисел

Comments

какой язык?

---

На Паскале

Answer 1

Begin
var a:=Arr(1,0,3,5,2,-4,6,-2,0,7).Println;
writeln(a.Where(x->x>0).Sum);
writeln(a.Where(x->x<0).Sum);<br>end.