funcao media (vetor(real) v): real
    int i
    real s <- 0
    para i em (0..tamanho(v)):
        s <- s + v[i]
    retorne s/len(v)

funcao abaixo_da_media (vetor(real) v): int
    int i, c
    real m <- media(v)
    para i em (0..tamanho(v)):
        se v[i] < m:
            c <- c + 1
    retorne c