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.