Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var n,m,i,k,x,y,d,l,st:longint;
- A:array [0..20,0..20] of longint;
- BEGIN
- read(n,m);
- for i:=1 to n do
- begin
- for k:=1 to m do
- read(A[i,k]);
- writeln();
- end;
- for i:=2 to n do
- A[i,1]:=A[i,1]+A[i-1,1];
- for i:=2 to m do
- A[1,i]:=A[1,i]+A[1,i-1];
- for i:=2 to n do
- for k:=2 to m do
- begin
- if (A[i+1,k]>=A[i,k+1]) then
- A[i,k+1]:=A[i,k+1]+A[i,k]
- else
- A[i+1,k]:=A[i+1,k]+A[i,k];
- end;
- writeln(A[n,m]);
- END.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement