Detail of message

Online Judge

Problem Set

Authors

Online Contests

User

Web Board
Home Page
F.A.Qs
Statistical Charts

Current Contest
Past Contests
Scheduled Contests
Award Contest

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

Posted by 1207zmxuan at 2013-05-28 16:54:26 on Problem 1004
In Reply To:Re:那位牛人能帮我看看这题错在哪了，总是wrong answer呀！快疯了！！！ Posted by:1207zmxuan at 2013-05-28 16:53:33

> 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:

Home Page Go Back To top