constante entier N <- ...

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

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

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

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