比赛 20091110 评测结果 WWWWWWWWWW
题目名称 股票收益 最终得分 0
用户昵称 Hamster 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2009-11-10 09:29:44
显示代码纯文本
program stock;
var
  a:array[1..1000] of real;
  i,j,n,m,x,nn:longint;
  ss,mm,max,xx:real;

begin
  assign(input,'stock.in');
  assign(output,'stock.out');
  reset(input);
  rewrite(output);

  read(n);
  x:=0;
  max:=0;
  for i:=1 to n do read(a[i]);
  read(m);
  mm:=m;
  for i:=2 to n do
    for j:=1 to i-1 do
	begin
	  if a[i]>a[j] then
	  begin
	    inc(x);
		nn:=trunc(mm/a[j]);
		ss:=nn*a[i]-mm;
		if ss>max then max:=ss;
	  end;
	end;
  writeln(max:0:3);
  xx:=x/(n*(n-1)/2);
  writeln(xx:0:3);

  close(input);
  close(output);
end.