比赛 20091110 评测结果 WWWWWWWWWW
题目名称 股票收益 最终得分 0
用户昵称 王瑞祥K 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2009-11-10 10:47:17
显示代码纯文本
program stock(input,output);
var
 a:array[1..1000]of real;
 i,j,w,tot,m,n:longint;
 max:real;
begin
 assign(input,'stock.in');assign(output,'stock.out');
 reset(input);rewrite(output);
 readln(n);
 for i:=1 to n do read(a[i]);
 readln(m);
 max:=0;
 w:=0;
 for i:=1 to n do
  for j:=i+1 to n do begin
   if a[j]-a[i]>max then max:=a[j]-a[i];
   if a[j]-a[i]>0 then inc(w);
   inc(tot);
  end;
 writeln(m*max:0:3);
 writeln(w/tot:0:3);
 close(input);close(output);
end.