Ejercicio PSeInt: Calcular el numero mayor, el menor, y la media aritmetica

Diseñar un Algoritmo que lea números enteros hasta teclear 0, y nos muestre el máximo, el
mínimo y la media de todos ellos.





Algoritmo:

Proceso maximo_minimo_media
Dimension A[1000];

Escribir "Ingrese una secuencia de numeros"
Escribir "Para finalizar introduzca el 0";

c<-1;
Repetir
Leer n;
A[c]<-n;
c<-c+1;
Hasta Que n=0
c<-c-2;

max<-A[1];
Para i<-2 Hasta c Con Paso 1 Hacer
Si A[i]>=max Entonces
max<-A[i]
Fin Si
Fin Para

min<-A[1];
Para j<-2 Hasta c Con Paso 1 Hacer
Si A[j]<=min Entonces
min<-A[j];
Fin Si
Fin Para

suma<-0;
Para k<-1 Hasta c Con Paso 1 Hacer
suma<-suma+A[k];
Fin Para
media<-suma/c;

Escribir "El mayor es: ", max;
Escribir "El menor es: ", min;
Escribir "La media aritmetica es: ", media;
FinProceso