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

action principale()
  { Taille du tableau                         }
  constante entier TAILLE <- 20
  { Déclaration du tableau                    }
  reel [TAILLE] tab
  reel limite
  entier cpt
  afficher("SVP, valeur limite? ")
  limite <- saisir()
  { 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 du nombre           }
  { des valeur du tableau inferieures         }
  { ou egales a la valeur limite saisie       }
  cpt <- 0
  pour i de 0 à longueur(tab)-1 faire
    si tab[i] <= limite alors
      cpt <- cpt+1
    fsi
  fait
  afficherln("Nombre valeurs < a ",limite,": ",cpt)
fin action