Question

3. Дан массив, содержащий неотрицательные целые числа, не превышающие 10 000. Необходимо вывести: - минимальный чётный элемент, если количество чётных элементов не больше, чем нечётных; - минимальный нечётный элемент, если количество нечётных элементов меньше, чем чётных. Например, для массива из шести элементов, равных соответственно 4, 6, 12, 17, 9, 8, ответом будет 9 — наименьшее нечётное число, поскольку нечётных чисел в этом массиве меньше.

Answer 1

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

begin
  var a:=ArrRandom(ReadInteger('n='),0,99); a.Println;
  var s:=a.Partition(x->x.IsEven);
  if s[0].Count<=s[1].Count then Writeln(s[0].Min)
  else Writeln(s[1].Min)
end.

Примеры
n= 9
33 43 60 94 5 19 84 58 6
5

n= 10
54 55 71 65 79 88 71 98 8 71
8