{ Action de remplissage d'un tableau de reels }
{ avec des nombres aleatoires                 }
{ compris entre 0.0 et 10.0                   }
{ tab : Le tableau de réels à remplir         }

action initRand(tab)
  Sorties
    Tableau [] de réel tab
  Locales
    entier i
  pour i de 0 à longueur(tab)-1 faire
    tab[i] <- random()*10.0
  fait
fin action

{ Calcul de la moyenne des valeurs contenues  }
{ dans un tableau de reels                    }

constante entier N <- ...

action principale()
  Locales
    entier i
    reel moyenne
    Tableau [N] de réel t
  initRand(t)
  moyenne <- 0.0
  pour i de 0 à N-1 faire
    moyenne <- moyenne+t[i]
  fait
  moyenne <- moyenne/N
  afficherln("La moyenne est ",moyenne)
fin action