constante entier N <- ...

{ Action de calcul du nombre de valeurs       }
{ inferieures ou egales a une valeur limite   }
{ trouvees dans un tableau de double          }
  
entier fonction nbValeursInferieuresLimite(t,limite)
  Données
    t : Tableau [N] de reel
    limite : reel
  Locales
    cpt : entier
    i : entier
  cpt <- 0
  pour i de 0 à N-1 faire
    si t[i] <= limite alors
      cpt <- cpt+1
    fsi
  fait
  retourner cpt
fin fonction