Составить программу массив
K(10)={1;0;3;5;2;-4;6;-2;0;7}
найти сумму положительных и сумму отрицательных чисел
K(10)={1;0;3;5;2;-4;6;-2;0;7}
найти сумму положительных и сумму отрицательных чисел
More Questions From This User See All
Answers & Comments
Verified answer
Beginvar 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);
end.