Program panel;
Var d1,d2,n,i:integer;
    x:byte;
Begin
 readln(n);
 d1:=0;
 d2:=0;
 for i:=1 to n do
  begin
   read(x);
   if (i mod 2 = 1) then
                     if x = 0 then d1:=d1 + 1
                              else d2:=d2 + 1
                    else
                     if x = 0 then d2:=d2 + 1
                              else d1:=d1 + 1;
  end;
 readln;
 if d1 > d2 then writeln(d2)
            else writeln(d1);
 readln;
End.