耐磨的登山包 - Ezoi_XY - 69456

记录编号	69456	评测结果	AAAAA
题目名称	耐磨的登山包	最终得分	100
用户昵称	Ezoi_XY	是否通过	通过
代码语言	Pascal	运行时间	0.016 s
提交时间	2013-09-16 16:17:55	内存使用	0.17 MiB

显示代码纯文本

Program cog1399;
    Var
        W,P,S:Extended;
        N,I,A:Longint;
    Begin
        Assign(Input,'mountainbag.in');
        Assign(Output,'mountainbag.out');
        Reset(Input);
        Rewrite(Output);
        Readln(N);
        S:=-1;
        For I:=0 To N-1 Do
            Begin
                Readln(P,W);
                If W/P>S Then
                    Begin
                        S:=W/P;
                        A:=I;
                    End;
            End;
        Writeln(A);
        Close(Input);
        Close(Output);
    End.