constante entier N <- ...

{ Action de creation d'un tableau de reels    }
{ initialise avec des nombres aleatoires      }
{ compris entre 0.0 et 10.0                   }

Tableau [N] de réel fonction initRand()
  Locales
    i : entier
    tab : Tableau [N] de réel
  pour i de 0 à N-1 faire
    tab[i] <- random()*10.0
  fait
  retourner tab
fin fonction

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

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