medianaV <- function(V,N) {
  # Vou fazer a solução geral
  # Aqui, vamos assumir que já carregamos o programa selection, ou bubble.
  W = selection(V,N)
  if (N%%2==1) {
      meio = (1+N)/2
      medianatmp = W[meio]
  } else {
      meiod = as.integer((1+N)/2) 
      meioe = meiod + 1
      medianatmp = (W[meiod] + W[meioe])/2
  }
  return(medianatmp)
}