Регистрация
Войти
Стать экспертом Правила
Информатика

Пожалуйста!!!!!ПаскальДан массив из N элементов. Определить количество элементов, которые являются нечетными числами.

ОТВЕТЫ



begin
  Writeln('Нечетных: ',ArrRandom(ReadInteger('n='),-99,99).Println
      .Where(x->x.IsOdd).Count)
end.


n= 15
-91 88 -55 -11 -12 -84 53 86 27 -18 -57 -61 13 -94 -48
Нечетных: 8
430
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам