numtri.pas

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

{
ID:maigoak1
PROG:numtri
}

program numtri;
const
  maxr=1000;
var
  fin,fout:text;
  r,i,j:integer;
  max:longint;
  t:array[0..maxr,0..maxr]of record
    value:byte;
    total:longint;
  end;
function greater(a,b:longint):longint;
  begin
    if a>b then greater:=a else greater:=b;
  end;
begin
  fillchar(t,sizeof(t),0);
  assign(fin,'numtri.in');
  reset(fin);
  readln(fin,r);
  for i:=1 to r do
    for j:=1 to i do
      read(fin,t[i,j].value);
  close(fin);

  for i:=1 to r do
    for j:=1 to i do
      t[i,j].total:=greater(t[i-1,j-1].total,t[i-1,j].total)+t[i,j].value;

  max:=t[r,1].total;
  for i:=2 to r do
    if t[r,i].total>max then max:=t[r,i].total;

  assign(fout,'numtri.out');
  rewrite(fout);
  writeln(fout,max);
  close(fout);
end.