Question

Помогите пожалуйста! Очень прошу!
Массив из 15 элементов заполнить целыми случайными числами в диапазоне от 0 до 20. Найти:
a) Количество нечетных элементов массива;
b) Сумму элементов массива кратных 3 или 5 и их количество;
c) Сумму отрицательных элементов массива, располагающихся на чётных позициях.

Answer 1

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

begin

 var a := ArrRandom(15, 0 , 20);  // глупый диапазон c) 0 всегда

 a. Println;

 a.Count(p -> p.IsOdd).Println; // a)

 var s := a.Where(p -> (p mod 3 =0) or (p mod 5 = 0));

 Println('Сумма', s.Sum, '   Количество', s.Count); // b)

 a[1::2].Where(p -> p < 0).Sum.Println  // c

end.