比赛 20091110 评测结果 EEEEEEEEEE
题目名称 股票收益 最终得分 0
用户昵称 bing 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2009-11-10 10:03:41
显示代码纯文本
program bing;
var
 f1,f2:text;
 n,i,j:integer;
 a:array[1..1000] of integer;
 m:longint;
 t,max:real;
 z,f:integer;

begin
 assign(f1,'stock.in');reset(f1);
 assign(f2,'stock.out');rewrite(f2);
 readln(f1,n);
 for i:=1 to n do read(f1,a[i]);
 readln(f1);
 read(f1,m);
 for i:=1 to n-1 do
  for j:=i+1 to n do
  begin
   t:=(a[j]-a[i])*m;
   if t>max then max:=t;
   if t>0 then inc(z) else inc(f);
  end;
 writeln(f2,max:0:3);
 writeln(f2,z/(z+f):0:3);
 close(f1);close(f2);
end.