大水题…… 不过通过这题我们应该养成一个好习惯:好好看清题…… 竟然没有看到时限 10sec…… var i,j,n,m,ans:longint; f,time,x,y:..] of longint; function max(x,y:longint):longint; begin if x>y then exit(x) else exit(y); end; procedure main; begin readln(n,m);ans:=; to m do begin f[i]:=; readln…