Question

Найти сумму нечётных элементов массива, состоящего из 15 случайных чисел в диапазоне [1;200]​

Answer 1

===== PascalABC.NET =====

begin

 var a := ArrRandom(15, 1, 200);

 a.Println.Where(p-> p.IsOdd).Sum.Println

end.