ПаскальНапишите программу, которая выводит на экран массив В в одну строку

Паскаль
Напишите программку, которая выводит на экран массив В в одну строчку и определяет количество четных и количество нечетных частей.

Задать свой вопрос
1 ответ
PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  var b:=ArrRandom(ReadInteger('n='),-50,50); b.Println;
  Writeln('Четных частей ',
      b.Where(t-gt;t.IsEven).Count,
      ', нечетных ',
      b.Where(t-gt;t.IsOdd).Count)
end.

Пример
n= 20
-18 -1 48 -31 -18 -34 -42 20 -30 14 -16 45 50 0 -18 39 45 19 -10 16
Четных элементов 14, нечетных 6
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт