记录编号 15187 评测结果 AAAAAAAAAA
题目名称 股票收益 最终得分 100
用户昵称 Gravatarrottenwood 是否通过 通过
代码语言 Pascal 运行时间 0.118 s
提交时间 2009-11-10 16:06:26 内存使用 0.12 MiB
显示代码纯文本
program stock;
var
w:array[1..1000] of real;
i,j,k,m,n,t1,tol,c:longint;
min,max,temp,ans,ans1:real;
flag:boolean;
begin
assign(input,'stock.in');reset(input);
assign(output,'stock.out');rewrite(output);
readln(n);
for i:=1 to n do
 read(w[i]);
 readln(m);
 min:=maxlongint;
 for i:=1 to n-1 do
  for j:=i+1 to n do
   begin
   inc(tol);
   if w[i]<m then flag:=true;
 ans:=(trunc(m/w[i]))*(w[j]-w[i]);
 if ans>max then max:=ans;
 end;
if not flag then ans:=0 else ans:=max;
writeln(ans:0:3);
for i:=1 to n-1 do
 for j:=i+1 to n do
 if (w[i]<w[j])and(w[i]<m) then inc(c);
 ans1:=c/tol;
 writeln(ans1:0:3);
 close(output);
 end.