game1.pas

来自「Magio牛的usaco源代码」· PAS 代码 · 共 48 行

{
ID:maigoak1
PROG:game1
}

program game1;
const
  maxn=100;
type
  pair=record
    me,you:integer;
  end;
var
  fin,fout:text;
  num:array[1..maxn]of byte;
  score:array[1..maxn]of pair;
  n,i,j:byte;
  p1,p2:pair;
begin
  assign(fin,'game1.in');
  reset(fin);
  readln(fin,n);
  for i:=1 to n do begin
    read(fin,num[i]);
    score[i].me:=num[i];
    score[i].you:=0;
  end;
  close(fin);

  for i:=2 to n do
    for j:=1 to n+1-i do begin
      with p1 do begin
        me:=score[j].you+num[j+i-1];
        you:=score[j].me;
      end;
      with p2 do begin
        me:=score[j+1].you+num[j];
        you:=score[j+1].me;
      end;
      if p1.me>p2.me then score[j]:=p1 else score[j]:=p2;
    end;

  assign(fout,'game1.out');
  rewrite(fout);
  writeln(fout,score[1].me,' ',score[1].you);
  close(fout);
end.