kek

program bbbased;
const N=10;
var A:array [1..N] of integer; i,k:integer; r:real;
Begin
for i:=1 to N do begin
A[i]:=random(100);
write(A[i],' ');
end;
writeln;
k:=0;
for i:=1 to N do begin
k:=k+A[i];
r:=k/N;
end;
writeln(r);
End.