Question

помогите пожалуйста решить вопрос

Answer 1

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadlnString.ToIntegers;
  var n1:=a.Where(t->t.IsOdd).Count;
  var n2:=a.Where(t->t.IsEven).Count;
  if n1>n2 Then Writeln('Нечетных больше')
  else
    if n2>n1 then Writeln('Четных больше')
    else Writeln('Четных и нечетных поровну')
end.

Пример
23 18 39 -15 27 48 -3 8
Нечетных больше

Answer 2

Простите но мне нужно на С

Answer 3

Простите, а где это написано?