arr <- c(9, 8, 7, 6, 5, 4, 3, 2, 1,10,11) um and 5 Maximum of Numbers.
arr1<-sort(arr)
print("sorted array is")
print(arr 1)
1<-length(arr1)
print("3rd mininum element")
print(arr1[3])
print("3rd maximum element")
print(arr1[1-2])