selection <- function(V,N) {
  i = 1
  while (i < N) {
    j = i+1
    while (j <= N) {
      if (V[i] > V[j]) {
        tmp = V[i]
        V[i] = V[j]
        V[j] = tmp
      }
      j = j + 1
    }
    i = i + 1
  }
  return(V)
}