На столе лежат n монеток. Некоторые из них лежат вверх решкой, а некоторые – гербом. Определите минимальное число монеток, которые нужно перевернуть, чтобы все монетки были повернуты вверх одной и той же стороной.
Монетки Входные данные В первой строке входного файла INPUT.TXT записано натуральное число N (1 ≤ N ≤ 100) – число монеток. В каждой из последующих N строк содержится одно целое число – 1 если монетка лежит решкой вверх и 0 если вверх гербом.
Выходные данные В выходной файл OUTPUT.TXT выведите минимальное количество монет, которые нужно перевернуть.
PascalABC.NET ₃.₆.₃.₂₅₇₇## var a := ReadAllLines('input.txt')[1:]; var m := Min(a.Count(s -> s='0'), a.Count(s -> s='1')); WriteAllLines('output.txt', |m.ToString|)
Пример работы: