PseInt - ejercicio 11 numero maximo, minimo y media

Algoritmo maxminmed
	Escribir "Ingrese numeros"
	Leer num
	minimo<-num
	maximo<-num
	suma<-0
	Mientras (num<>0) Hacer
		si (num>maximo) Entonces
		maximo<-num

		FinSi
		si (num<minimo) Entonces
		minimo<-num
		FinSi
		suma<-suma+num
		contador<-contador+1
		leer num
	FinMientras
	media<-suma/(contador)
	Escribir "el maximo es " maximo
	Escribir "el minimo es " minimo
	Escribir "la media es " media
	FinAlgoritmo