Online JudgeProblem SetAuthorsOnline ContestsUser
Web Board
Home Page
F.A.Qs
Statistical Charts
Problems
Submit Problem
Online Status
Prob.ID:
Register
Update your info
Authors ranklist
Current Contest
Past Contests
Scheduled Contests
Award Contest
User ID:
Password:
  Register

Re:那位牛人能帮我看看这题错在哪了,总是wrong answer呀!快疯了!!!

Posted by 1207zmxuan at 2013-05-28 16:53:33 on Problem 1004
In Reply To:那位牛人能帮我看看这题错在哪了,总是wrong answer呀!快疯了!!! Posted by:Sephiroth_Zhang at 2009-03-23 22:16:58
> 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.

Followed by:

Post your reply here:
User ID:
Password:
Title:

Content:

Home Page   Go Back  To top


All Rights Reserved 2003-2013 Ying Fuchen,Xu Pengcheng,Xie Di
Any problem, Please Contact Administrator