Question

На столе лежат n монеток. Некоторые из них лежат вверх решкой, а некоторые – гербом. Определите минимальное число монеток, которые нужно перевернуть, чтобы все монетки были повернуты вверх одной и той же стороной.


Монетки
Входные данные
В первой строке входного файла INPUT.TXT записано натуральное число N (1 ≤ N ≤ 100) – число монеток. В каждой из последующих N строк содержится одно целое число – 1 если монетка лежит решкой вверх и 0 если вверх гербом.

Выходные данные
В выходной файл OUTPUT.TXT выведите минимальное количество монет, которые нужно перевернуть.

INPUT.TXT OUTPUT.TXT
5 2
1
0
1
1
0

Answer 1

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|)

Пример работы: