记录编号 | 5233 | 评测结果 | AAAAAAAAAAA | ||
---|---|---|---|---|---|
题目名称 | 134.[USACO Feb08] 晚餐队列安排 | 最终得分 | 100 | ||
用户昵称 | 是否通过 | 通过 | |||
代码语言 | Pascal | 运行时间 | 0.054 s | ||
提交时间 | 2008-10-25 19:26:27 | 内存使用 | 0.34 MiB | ||
var n,i,tmp:longint; f:array[0..30000,1..2] of longint; function min(a,b:longint):longint; begin if a>b then min:=b else min:=a; end; begin assign(input,'diningb.in'); reset(input); assign(output,'diningb.out'); rewrite(output); readln(n); for i:=1 to n do begin readln(tmp); f[i,1]:=f[i-1,1]+(tmp xor 1) div 3; f[i,2]:=min(f[i-1,1]+(tmp xor 2) div 3,f[i-1,2]+(tmp xor 2) div 3); end; writeln(min(f[n,1],f[n,2])); close(input); close(output); end.