Паскаль дан массив из n элементов. определить количество элементов, которые являются нечетными числами.

azharabikenova azharabikenova    2   26.08.2019 21:00    1

Ответы
Kuprums Kuprums  05.10.2020 21:36
// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программа не работает, обновите версию!

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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика