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

valya0603 valya0603    1   18.03.2020 23:52    0

Ответы
Учениклвл505 Учениклвл505  12.10.2020 01:02

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика