Составить программу массив k(10)={1; 0; 3; 5; - вопрос №7705403101035246207 от ЛеночкаБелочка 28.07.2021 08:31

Question

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

ЛеночкаБелочка · 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....