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

action principale()
  { Taille du tableau                         }
  constante entier TAILLE <- 20
  { Déclaration du tableau                    }
  reel [TAILLE] tab
  entier i
  reel somme
  reel moyenne
  { Remplissage du tableau                    }
  pour i de 0 à longueur(tab)-1 faire
    tab[i] <- random()
  fait
  { Affichage des valeurs du tableau          }
  pour i de 0 à longueur(tab)-1 faire
    afficherln(tab[i])
  fait
  sautDeLigne()
  { Calcul puis affichage de la moyenne       }
  { des valeurs du tableau                    } 
  somme <- 0.0
  pour i de 0 à longueur(tab)-1 faire
    somme <- somme+tab[i]
  fait
  moyenne <- somme/longueur(tab)
  afficherln("La moyenne est ",moyenne)
fin action