| ||||||||||
| 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 | |||||||||
AC程序program p1004;
var
a:array[1..12] of real;
i:integer;
sum:real;
begin
for i:=1 to 12 do
readln(a[i]);
for i:=1 to 12 do
sum:=sum+a[i];
sum:=sum/12;
writeln('$',sum:0:2);
end.
Followed by: Post your reply here: |
All Rights Reserved 2003-2013 Ying Fuchen,Xu Pengcheng,Xie Di
Any problem, Please Contact Administrator