...una invitación a entrar en el maravilloso mundo de la programación...

 Portada      Noticias      Descargar      Documentación      Foros    

Promedio2

---

// Calcula el promedio de una lista de N datos utilizando un SubProceso

SubProceso prom <- Promedio ( arreglo, cantidad )
    Definir i como Entero;
    Definir suma como Real;
    Definir prom como Real;
    suma <- 0;
    Para i<-0 Hasta cantidad-1 Hacer
        suma <- suma + arreglo[i];
    FinPara
    prom <- suma/cantidad;
FinSubProceso

Proceso Principal

    Definir i,N como Entero;
    Definir acum,datos,prom como Reales;
    Dimension datos[100];
    Escribir "Ingrese la cantidad de datos:";
    Leer n;
    
    Para i<-0 Hasta n-1 Hacer
        Escribir "Ingrese el dato ",i+1,":";
        Leer datos[i];
    FinPara
    
    Escribir "El promedio es: ",Promedio(datos,n);
    
FinProceso