Advertisement
Guest User

Untitled

a guest
Mar 28th, 2020
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.64 KB | None | 0 0
  1. var n,m,i,k,x,y,d,l,st:longint;
  2. A:array [0..20,0..20] of longint;
  3. BEGIN
  4. read(n,m);
  5. for i:=1 to n do
  6. begin
  7. for k:=1 to m do
  8. read(A[i,k]);
  9. writeln();
  10. end;
  11. for i:=2 to n do
  12. A[i,1]:=A[i,1]+A[i-1,1];
  13. for i:=2 to m do
  14. A[1,i]:=A[1,i]+A[1,i-1];
  15. for i:=2 to n do
  16. for k:=2 to m do
  17. begin
  18. if (A[i+1,k]>=A[i,k+1]) then
  19. A[i,k+1]:=A[i,k+1]+A[i,k]
  20. else
  21. A[i+1,k]:=A[i+1,k]+A[i,k];
  22. end;
  23. writeln(A[n,m]);
  24. END.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement