funcao media (vetor(real) a): real
    int k, i
    real m
    m <- 0.0
    k <- tamanho(a)
    para i em (0..k-1):
        m <- m + a[i]
    returne m / k

int i, n
mostre "Quantos elementos?"
leia n
vetor(real, n) dados

para i em (0..n-1)
    leia dados[i] 

mostre "Media = ", media(dados)