如果发现广告等破坏行为，请尽量将条目恢复到较早的版本而不是把相应内容直接删除，谢谢合作。

URAL/1047

来自"NOCOW"

跳转到: 导航, 搜索

设s[i]=c1+c2+...+cn

Image:Ural1047sol1.jpg

第2次迭代

Image:Ural1047sol2.jpg 


{$A+,B-,D+,E-,F-,G+,I-,L-,N+,O-,P+,Q-,R-,S-,T-,V-,X+,Y-}
{$M 65520,0,655360}
VAR
  i,n:longint;
  c:array [0..3000] of Extended;
  x,y,sum:Extended;
BEGIN
  readln(n);
  readln(x);
  readln(y);
  sum:=0;
    for i:=1 to n do
      BEGIN
        readln(c[i]);
        c[i]:=c[i]+c[i-1];
        sum:=sum+c[i];
      END;
  writeln((n*x+y-sum*2)/(n+1):0:2);
END.
来自"http://www.nocow.cn/index.php/URAL/1047"
个人工具