Составить программу массив k(10)={1; 0; 3; 5; 2; - вопрос №1010352462077705628 от Daxa666 08.06.2023 10:51

Question

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

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