{ Action de remplissage d'un tableau de reels }
{ initialise avec des nombres aleatoires      }
{ compris dans l'intervalle [0.0,20.0[        }
{ tab : Le tableau de réels à remplir         }

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

{ Calcul des nombres de de valeurs            }
{ par intervalle de largeur 1.0               }
{ pour un tableau de reels compris            }
{ entre 0.0 et 20.0                           }

contante entier N <- ...

action principale()
  Locales
    Tableau [N] de reel t
    Tableau [20] de entier classification
    entier i
    entier cl
  initRand(t)
  pour i de 0 à longueur(classification)-1 faire
    classification[i] <- 0
  fait
  pour i de 0 à longueur(t)-1 faire
    cl <- t[i]
    classification[cl] <- classification[cl]+1
  fait
  afficherln("Nombres valeurs:")
  pour i de 0 à longueur(classification)-1 faire
    afficherln(i,"  ",classification[i])
  fait
fin action