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.