program profit;

    var
        fin , fout: text;
        i , n : integer;
        x , P , paran : Real;

    begin

            assign( fin, 'profit.in' );
            assign( fout, 'profit.out' );
            reset( fin );
            rewrite( fout );

            read( fin , n);
            paran := 1000;
            P:=0;

            for i := 1 to n do
            begin
            read( fin , x);

            if x < paran then
            paran := x;

           if (x / paran) > P then
            P := x / paran;
            end ;

            writeln( fout, P : 0 : 3);

            close( fin );
            close( fout );
            halt(0);
    end.