Question

Составить программу, которая формирует
массив из 7 случайных целых чисел, принадлежащих
промежутку [1; 5], и вычисляет произведение нечетных чисел.

Сформируем массив случайных чисел на указанном
промежутке. Вычисленное произведение будем помещать в
переменную Р. Начальное значение Р:=1.

Умножать Р на значение очередного элемента будем только
на тех шагах цикла for,
где выполняется условие A[i] mod 2 = 1.
(В паскале) даю 90 баллов ​

Answer 1

begin

 //PascalABC.NET v3.5.1

 SeqRandom(7, 1, 5).Where( x -> (x mod 2) <> 0).Product.Print();

end.