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

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

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

Question

Вена

26 декабря, 19:36

+5

Ответы (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}найти сумму положительных и сумму отрицательных чисел