Задача в Pascal

[Remi]

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

Помогите пожалуйста...никак не получается решить...

Входные данные:
5
1
0
1
1
0
Выходные данные:
2

[Stilet]

Перефразирую твою задачу: Найти минимум из количеств орлов и решек
Так понятнее?

[Mad_Cat]

0-орлы
1-решки

k0:=0;kr:=0;
for i :=1 to n do
if m[i]=0 then inc (k0)
else inc(kr)
if k0>=kr then writeln(kr)
else writeln(k0);