Дан массив А (120), заполненный трехзначными случайными числами. Найти произведение тех элементов, которые принадлежат отрезку (30,60) и сумму тех элементов, которые кратны 6.
## var a := ArrRandom(120, 100, 999); var p := a[29:60].Aggregate(BigInteger.One, (a,x) → a*x); var s := a.Sum(x → x.Divs(6) ? x : 0); a.Println; Println('p:', p); Print('s:', s)
PascalABC.NET:
## var a := ArrRandom(120, 100, 999); var p := a[29:60].Aggregate(BigInteger.One, (a,x) → a*x); var s := a.Sum(x → x.Divs(6) ? x : 0); a.Println; Println('p:', p); Print('s:', s)