Question

Дан одномерный массив из 15 целых случайных чисел из диапазона [10;90] найдите сумму чётных чисел паскаль

Answer 1

                                           PascalABC.NET

begin

 ArrRandom(15,10,90).Where(x -> x.IsEven).Sum.Println

end.