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

funcao moda (vetor(real) v): real
    int i, j, maior
    int n <- tamanho(v)
    vetor(real, n) freq
    para i em (0..n-1):
        freq[i] <- 0

    para i em (0..n-1):
        para j em (0..n-1):
            se v[i] = v[j]:
                freq[i] <- freq[i] + 1
    maior <- 0
    para i em (0..n-1):
        se (v[i] > v[maior]):
            maior <- i
    retorne v[maior]

funcao ordena (vetor(real) v): vetor(real)
    int i, j
    real tmp
    n <- tamanho(v)
    para i em (0..n-1):
        para j em (0..n-1):
            se v[i] > v[j]:
                tmp  <- v[i]
                v[i] <- v[j]
                v[j] <- tmp
    retorne v

funcao mediana (vetor(real) v): real
    vetor(real) vo <- ordena(v)
    int n <- tamanho(v)
    int a <- chao((n-1)/2.0)
    int b <- teto((n-1)/2.0)
    retorne (vo[a]+vo[b])/2.0

int i, n
leia n
vetor v(real, n)

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

mostre "media: ", media(v)
mostre "moda: ", moda(v)
mostre "mediana: ", mediana(v)