var b,c,i:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
a[i]:=random(10);
end;
c:=c+a[i];
b:=c div 10;
writeln(a[i]);
writeln('srednee ',b);
end.
