记录编号	15298	评测结果	WWWWWWWWWW
题目名称	398.股票收益	最终得分	0
用户昵称	麦、洛洛	是否通过	未通过
代码语言	Pascal	运行时间	0.161 s
提交时间	2009-11-11 15:35:49	内存使用	7.75 MiB

program gp;
var
        d:array[1..1000,1..1000] of real;
        a:array[1..1000] of real;
        i,j,k,l,m,n:integer;
        f:text;
        g,max,o:real;
begin
        assign(f,'stock.in');
        reset(f);
        readln(f,n);
        for i:=1 to n do
        read(f,a[i]);
        readln(f);
        readln(f,m);
        close(f);
        max:=0;
        o:=0;
        k:=0;
        g:=0;
        for i:=1 to n do
        d[i,i]:=a[i];
        for i:=n downto 1 do
        for j:=1 to n do
                if j>i then
                begin
                        o:=d[j,j]-d[i,i];
                        d[i,j]:=m/d[i,i]*o;
                end;
        for i:=1 to n do
        for j:=1 to n do
        begin
                if j>i then
                begin
                        if d[i,j]>0 then
                        k:=k+1;
                        if d[i,j]>max then
                        max:=d[i,j];
                end;
        end;
        g:=k/((n*n-n)/2);
        assign(f,'stock.out');
        rewrite(f);
        writeln(f,max:0:3);
        writeln(f,g:0:3);
        close(f);
end.