funcao absoluto (real x): real
    retorne raiz (x^2)

funcao distancia_media (vetor(real) v): int
    int i
    real s <- 0
    para i em (0..tamanho(v)-2):
        s <- s + absoluto (v[i] - v[i+1])
    retorne s/(tamanho(v)-1)