最傻的办法: var max,w:real; mn,mk:integer; n,k:integer; begin mn:=1; mk:=2; w:=.....; max:=w; for n:=1 to 100 do for k=2 to 89 do begin w:=....; if w>max then begin max:=w; mk:=k; mn:=n; end; end; showmessage(.......); end;
----------------------------------------------
-