p1048.pas

来自「高手写的所有acm例程 在acm.zju.edu.cn 上的题目的例程」· PAS 代码 · 共 19 行

PROGRAM p1048;

VAR
        sum     :real;
        i       :integer;
        temp    :real;

BEGIN
while not eof do
        begin
        sum:=0;
        for i:=1 to 12 do
                begin
                readln(temp);
                sum:=sum+temp;
                end;
        writeln('$',sum/12:0:2);
        end;
END.