Программа для нахождения количество положительных нечётных элементов целочисленного массива

                                     PascalABC.NET                                       beginvar a:= ArrRandom(5,-100,100);a.Println;a.Count(x->(x.IsOdd)and(x>0)).Printend.

Объяснение:

Для нахождения количество положительных нечётных элементов одномерного массива:  [массив].Count(x->(x.IsOdd)and(x>0))

И не говорите, что такого ещё не проходили - сами написали "Студенческий".

Пример: