记录编号 15180 评测结果 AAAAAAAAAA
题目名称 股票收益 最终得分 100
用户昵称 GravatarEnAsn 是否通过 通过
代码语言 Pascal 运行时间 1.211 s
提交时间 2009-11-10 16:01:10 内存使用 0.12 MiB
显示代码纯文本
program ex;
type
 ss=array[1..1000]of real;
var
 f:ss;
 n,m:longint;
 i,j,t,k:longint;
 ans1,ans2,temp:real;
begin
 assign(input,'stock.in');
 assign(output,'stock.out');
 reset(input);
 rewrite(output);
 readln(n);
 for i:=1 to n do read(f[i]);
 readln;
 readln(m);
 close(input);
 ans2:=0;
 for i:=1 to n-1 do
  for j:=i+1 to n do
   begin
    inc(t);
    k:=1;
    while k*f[i]<=m do inc(k);
    temp:=(f[j]-f[i])*(k-1);
    if temp>0 then ans2:=ans2+1;
    if temp>ans1 then ans1:=temp;
   end;
 writeln(ans1:0:3);
 writeln((ans2/t):0:3);
 close(output);
end.