x<-c(4,7,2,9,1,5,3,23,6)

temp<-c()
n<-length(x)
decreasing=T
SelectSort<-function(x,decreasing=F){
  for(i in 1:(n-1)){
    nmin<-i
    for(j in (i+1):n){
      if(x[j]<x[nmin]){
      nmin<-j
      }
    }
      temp<-x[i]
      x[i]<-x[nmin]
      x[nmin]<-temp
    }
    else{
    nmax<-i
    for(j in (i+1):n){
      if(x[j]>x[nmax]){
        nmax<-j
      }
      temp<-x[i]
      x[i]<-x[nmax]
      x[nmax]<-temp
    }
  }
} print(x)