woshiniba 2008-10-07 22:13:00
点我顶贴
收藏
删除
源代码:
program rq280;
var
b:array [0..3] of longint;
f:array [1..3,1..3] of longint;
a:array [1..1000] of longint;
n,i,j,all,now:longint;
function min(a,b:longint):longint;
begin
if a<b then exit(a)
else exit(b);
end;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
inc(b[a[i]]);
end;
now:=0;
for i:=1 to 3 do
begin
for j:=1 to b[i] do
begin
inc(now);
inc(f[i,a[now]]);
end;
end;
all:=0;
inc(all,min(f[1,2],f[2,1]));
inc(all,min(f[1,3],f[3,1]));
inc(all,min(f[3,2],f[2,3]));
inc(all,(f[1,2]+f[1,3])*2);
writeln(all);
readln; readln;
end.