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

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

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

Question

Вена

25 октября, 15:21

+4

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