记录编号	75960	评测结果	AAAAAAAAAAA
题目名称	[USACO Feb08] 晚餐队列安排	最终得分	100
用户昵称	苏轼	是否通过	通过
代码语言	Pascal	运行时间	0.005 s
提交时间	2013-10-29 19:02:12	内存使用	0.39 MiB

Program sl;
  var
    i,x,n,min:longint;
    s1,s2:array[0..30000]of longint;
  begin
    assign(input,'diningb.in');
    assign(output,'diningb.out');
    reset(input);
    rewrite(output);
    read(n);
    for i:=1 to n do
      begin
        read(x);
        s1[i]:=s1[i-1];
        s2[i]:=s2[i-1];
        if x=1 then inc(s1[i])
        else inc(s2[i]);
      end;
    min:=s1[n];
    if min>s2[n] then min:=s2[n];
    for i:=1 to n-1 do
      if (s2[i]+s1[n]-s1[i])<min then min:=(s2[i]+s1[n]-s1[i]);
    writeln(min);
    close(input);
    close(output);
  end.