Составить программу массив k(10)={1; 0; 3; 5; 2; - вопрос №7705403101035246207 от osipovalex1969 02.09.2022 15:28

Question

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

osipovalex1969 · 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....