Составить программу массив

K (10) = {1; 0; 3; 5; 2; -4; 6; -2; 0; 7}

найти сумму положительных и сумму отрицательных чисел

Question

Христиан

21 ноября, 02:03

+1

Ответы (1)

Знаете ответ?

Оля · 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) ;

end.

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