program TBC;
uses crt;
var b:array[1..100] of integer;
n,i,S:integer;
T:real
begin
clrscr;
readln(n);
for i:=1 to n do
begin
readln(b[i]);
S:=S+b[i];
end;
for i:=1 to n do
write(b[i],' ');
writeln();
T:=S mod n;
write('Trung binh cong cua cac phan tu trong mang la: ',T);
readln
end.