PascalABC.NET
## var A := ReadArrInteger(10);
Println('Сумма элементов:', a.Sum);
Println('Сумма отрицательных элементов:', a.Where(x → x < 0).Sum);
Println('Сумма элементов, кратных 3-ем:', a.Where(x → x mod 3 = 0).Sum);
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
PascalABC.NET
## var A := ReadArrInteger(10);
Println('Сумма элементов:', a.Sum);
Println('Сумма отрицательных элементов:', a.Where(x → x < 0).Sum);
Println('Сумма элементов, кратных 3-ем:', a.Where(x → x mod 3 = 0).Sum);