даны естественные числа n, a1 ...an найти количество членов последовательности,

Даны естественные числа n, a1 ...an найти количество членов последовательности, являющихся нечетными числами

Задать свой вопрос
1 ответ
PascalABC.NET:

begin
  var n:=ReadlnInteger('n =');
  var a:=ArrRandom(n,0,50);
  a.Println;
  var k:=a.Where(x-gt;(x mod 2 lt;gt; 0)).Count;
  Writeln('k = ',k);
end.

Пример:
n = 10
0 16 46 49 19 15 17 47 18 43
k = 6
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт