Есть ответ 👍

Сочинение немецкий язык 'Mein Ausflug'

163
467
Посмотреть ответы 1

Ответы на вопрос:


                                     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))

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

Пример:

Популярно: Немецкий язык