program abc;
uses crt;
var a:array[1..10] of integer;
    i:integer;
    k:real;
begin
for i:=1 to 10 do
a[i]:=random(10);
for i:=1 to 10 do
write(a[i]:4);
for i:=1 to 10 do
k:=k+a[i];
k:=k/10;
writeln;
writeln('k=',k);
end.