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

int i, n
leia n
vetor(real) v

para i em (0..tamanho(v)):
    leia v[i]

mostre abaixo_da_media(v)