Pascal :

var
  n,i:integer;
  a:array[1..1000] of real;
  pingjun,sum:real;
begin
  readln(n);
  for i:=1 to n do
    begin
      read(a[i]);
      sum:=sum+a[i];
    end;
    pingjun:=sum/n;
  write(pingjun:0:2);
end.