** столе лежат n монеток. Некоторые из них лежат вверх решкой, а некоторые – гербом....

+232 голосов
1.3m просмотров

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


image

Информатика | 1.3m просмотров
Дан 1 ответ
+73 голосов

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

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


image
(3.7k баллов)