Codevs 1220 数字三角形

题目=v=

Codevs 1220 数字三角形

题解QAQ

呃。。。大意是下面几层的每一个结点都可由上一层的左右两个结点走来
大概就是[i,j]可由[i-1,j-1]或[i-1,j]而来
所以。。。
a[i,j]:=max(a[i-1,j-1],a[i-1],j])+x
（a[i,j]表示走到第a[i,j]的最大值，x表示读入数据中第[i,j]位置上的值）
//aha就酱啦这题感觉还是很愉快的233从机房出去前五分钟写的程序o(￣▽￣)ブ

代码=v=

Pascal

uses math;var    i,j,n,m,x:longint;    a:array[0..100,1..100] of longint;begin    readln(n);    fillchar(a,sizeof(a),0);    for i:=1 to n do    begin        for j:=1 to i do         begin            read(x);            a[i,j]:=max(a[i-1,j-1],a[i-1,j])+x;        end;        readln;    end;    m:=a[n,1];    for i:=2 to n do    if a[n,i]>m        then m:=a[n,i];    writeln(m);end.