var
mas:array[1..16] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 15 do
begin
mas[i]:=random(11);
write (' ',mas[i],' ');
end;
writeln;
for k:=1 to 15 do
begin
for i:= 1 to 15 do
if mas[i]>mas[i+1] then swap(mas[i],mas[i+1]);
end;
writeln ('Медиана массива равна ',mas[9]);
end.
