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

AC程序

Posted by zsldg2007 at 2007-04-24 13:37:24
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:
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