Algo minMax
Variables
	i:entier
	x,min,max:réel
	b:booléen
	y:chaine
Début
i:=0
	repeter
		i:=i+1
		ecrire("Saisir un réel")
		lire(x)
		Si i=1
			min:=x
			max:=x
		Sinon
			Si x<min alors
			min:=x
			Sinon
				Si x>max alors
				max:=x
				FinSi
			FinSi
		FinSi
		
		Ecrire("voulez vous continuez ? (y/n)")
		Lire(y)
		
		Si y="y"
		alors
			b=TRUE
		Sinon
			b=FALSE
		FinSi
	jusaqu'à not(b)
	Ecrire("nbre de réels",i,"max : ",max,"min : ",min)
Fin