> Program sum1;
Const
  infile='';
  outfile='';
Var
  i, s, n, v, x: Integer;
  v: real;
Begin
  Assign(input, infile);
  Assign(output, outfile);
  Reset(input);
  Rewrite(output);

  Readln(n);
  For i:=1 To n Do Begin
    s:=0;
    Read(x);
    s:=s+x;
  End;

  v:=s/n;
  Write('$',v:0:2);
  
  Close(input);
  Close(output);
End.

• Re:那位牛人能帮我看看这题错在哪了，总是wrong answer呀！快疯了！！！ (395) 1207zmxuan 2013-05-28 16:54:26