OpenJudge

Pascal

  • amy
    amy 15.11.29 回复

    var n,a,s,i:longint;
    q:real;
    begin
    readln(n);
    s:=0;
    for i:= 1 to n do
    begin;
    readln(a);
    s:=s+a;
    end;
    q:=s/n;
    writeln (q:0:2);
    end.

想要评论吗?

注册OpenJudge账号,如果您已经注册,请先登入