{ Affichage d'un tableau de reels             }
{ pour les valeurs comprises                  }
{ entre des bornes minimale et maximale       }

action principale()
  { Taille du tableau                         }
  constante entier TAILLE <- 20
  { Déclaration du tableau                    }
  reel [TAILLE] tab
  entier i
  réel min
  réel max
  { Acquisition clavier de min et de max      }
  afficher("SVP, valeur minimale? ")
  min <- saisir()
  afficher("SVP, valeur maximale? ")
  max <- 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()
  { Affichage des valeurs du tableau          }
  { comprises dans l'intervalle [min,max]     }
  pour i de 0 à longueur(tab)-1 faire
    si ( ( tab[i] >= min ) et ( tab[i] <= max ) ) alors
      afficherln(tab[i])
    fsi
  fait
fin action