Прочитать массив из 10 элементов и написать каких элементов больше четных или нечетных. (...

Question

Прочитать массив из 10 элементов и написать каких элементов больше четных или нечетных. ( На Паскале)

Answer 1

// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

begin
  var m := ReadArrInteger(10);
  var (o, e) := (m.Where(t -> t.IsOdd).Count, m.Where(t -> t.IsEven).Count);
  Println(o > e ? 'Нечетных больше' : o = e ? 'Поровну' : 'Четных больше');
end.

Пример:
1 2 3 4 5 6 7 8 10 10
Четных больше