Advertisement
Guest User

Untitled

a guest
Oct 17th, 2018
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.31 KB | None | 0 0
  1. var n,i,m,j,ans:integer;
  2.     a:array[1..100, 1..100]of integer;
  3. begin
  4.     readln(n, m);
  5.     for i:=1 to n do
  6.        for j:=1 to m do
  7.          read(a[i,j]);
  8.    
  9.     ans:=a[1,m];
  10.    
  11.     for i:=2 to n do
  12.        if (a[i, m+1-i] > ans) then
  13.            ans:=a[i, m+1-i];
  14.    
  15.     writeln(ans);
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement