记录编号 15346 评测结果 AAAAAAAAAA
题目名称 股票收益 最终得分 100
用户昵称 Gravatarreamb 是否通过 通过
代码语言 Pascal 运行时间 0.129 s
提交时间 2009-11-11 21:05:06 内存使用 0.12 MiB
显示代码纯文本
{believe spring brother}
program gupiao;
var
  a:array[1..1000] of real;
  i,j,n,money,s,t:longint;
  max:real;
begin
  assign (input,'stock.in');
  reset (input);
  assign (output,'stock.out');
  rewrite (output);
  readln (n);
  for i:=1 to n do
    read (a[i]);
  readln;
  readln (money);
  max:=0;
  for i:=1 to n-1 do
    for j:=i+1 to n do
    begin
      t:=t+1;
      if (trunc(money/a[i])*(a[j]-a[i])>max) and (money>=a[i])  then
        max:=trunc(money/a[i])*(a[j]-a[i]);
      if (a[j]-a[i]>0) and (money>=a[i]) then
        s:=s+1
    end;
  writeln (max:0:3);
  writeln (s/t:0:3);
  close (input);
  close (output)
end.