Question

Дан массив, состоящий из 10 целых чисел. Элементы массива могут принимать Значения от 10 до 1000. Найти и вывести сумму наибольшего элемента массива кратного трем и наименьшего элемента массива, оканчивающегося на 7.

Answer 1

PascalABC.Net

begin

 var a := ArrRandom(10, 10, 1000);

 Println('Исходный массив:', a);

 Println('Сумма: ', (a.Where(x -> x mod 3 = 0).Max) + (a.Where(x -> x mod 10 = 7).Min));  

end.