Question

Дан массив А (120), заполненный трехзначными случайными числами. Найти произведение тех элементов, которые принадлежат отрезку (30,60) и сумму тех элементов, которые кратны 6.

Answer 1

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)