constante entier N <- ...

{ Fonction de création et retour              }
{ d'un tableau de réels initialisé            }
{ avec des nombres aleatoires                 }
{ compris dans l'intervalle [0.0,20.0[        }
{ n : La taille du tableau à créer            }

Tableau [] de reel fonction initRand(n)
  Entrées
    entier n
  Locales
    entier i
    Tableau [n] de reel tab
  pour i de 0 à n-1 faire
    tab[i] <- random()*20.0
  fait
  retourner tab
fin fonction

{ Calcul du nombre de valeurs inférieures     }
{ ou egales a une valeur limite trouvees      }
{ dans un tableau de reels                    }

action principale()
  Locales
    reel limite
    Tableau [N] de reel t
    entier i
    entier cpt
  t <- initRand(N)
  afficher("SVP, valeur limite? ")
  limite <- saisir()
  cpt <- 0
  pour i de 0 à N-1 faire
    si t[i] <= limite alors
      cpt <- cpt+1
    fsi
  fait
  afficherln("Nombre valeurs < a ",limite,": ",cpt)
fin action