На столе лежат n монеток. Некоторые из них лежат вверх решкой, а некоторые – гербом. Определите минимальное число монеток, которые нужно перевернуть, чтобы все монетки были повернуты вверх одной и той же стороной.
Монетки
Входные данные
В первой строке входного файла INPUT.TXT записано натуральное число N (1 ≤ N ≤ 100) – число монеток. В каждой из последующих N строк содержится одно целое число – 1 если монетка лежит решкой вверх и 0 если вверх гербом.
Выходные данные
В выходной файл OUTPUT.TXT выведите минимальное количество монет, которые нужно перевернуть.
INPUT.TXT OUTPUT.TXT
5 2
1
0
1
1
0
Приложения:
![](https://st.uroker.com/files/573/5731fc7781a893a2d4a8ab8572dee1d3.gif)
Ответы
Ответ дал:
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|)
Пример работы:
Приложения:
![](https://st.uroker.com/files/4d2/4d2ad7300c3ebcc38ceda6f02be82ad7.png)
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад