fork download
  1.  
Success #stdin #stdout 0.02s 7032KB
stdin
Algoritmo Encuesta
	Definir cantidad, muestra Como Entero
	Definir nombres, apellidos Como Caracter
	Definir edad, peso, mes Como Entero
    Definir i, seleccionado, mayores30, nacidosJulio, carlos, jose, pesados90, pesados90mayores20 como Entero
    Definir promedioEdad, promedioPeso como Real
	Escribir "Ingrese la cantidad de personas a encuestar:"
	Leer cantidad
	muestra <- cantidad / 10
	Dimension nombres[muestra], apellidos[muestra], edad[muestra], peso[muestra], mes[muestra]
	
	
    Para i <- 1 Hasta muestra Con Paso 1 Hacer
		Escribir "Encuestado ", i
		Escribir "Nombre:"
		Leer nombres[i]
		Escribir "Apellido:"
		Leer apellidos[i]
		Escribir "Edad:"
		Leer edad[i]
		Escribir "Peso:"
		Leer peso[i]
	Escribir "Mes de nacimiento:"
		Si mes[i] <=12 Entonces
			Leer mes[i]
		SiNo
			Escribir "Mes de nacimiento no valido"
		Fin Si
	FinPara
   
    mayores30 = 0
    promedioEdad = 0
    nacidosJulio = 0
    carlos = 0
    promedioPeso = 0
    pesados90 = 0
    pesados90mayores20 = 0
	Para i <- 1 Hasta muestra Con Paso 1 Hacer
        Si edad[i] > 30 Entonces
            mayores30 = mayores30 + 1
        FinSi
        promedioEdad = promedioEdad + edad[i]
        Si mes[i] = 7 Entonces
            nacidosJulio = nacidosJulio + 1
        FinSi
        Si nombres[i] = "Carlos" Entonces
            carlos = carlos + 1
        FinSi
        promedioPeso = promedioPeso + peso[i]
        Si nombres[i] = "José" Entonces
            Escribir"Respuestas de José:"
            Escribir"Edad: ", edad[i]
            Escribir"Peso: ", peso[i]
            Escribir"Mes de nacimiento: ", mes[i]
        FinSi
        Si peso[i] > 90 Entonces
            pesados90 = pesados90 + 1
            Si edad[i] > 20 Entonces
                pesados90mayores20 = pesados90mayores20 + 1
            FinSi
        FinSi
    FinPara
    promedioEdad = promedioEdad / 10
    promedioPeso = promedioPeso / 10
	
   
    Escribir"Personas mayores de 30 años: ", mayores30
    Escribir"Promedio de edad de los encuestados: ", promedioEdad
    Escribir"Encuestados nacidos en Julio: ", nacidosJulio
    Escribir"Encuestados llamados Carlos: ", carlos
    Escribir"Promedio de peso de los encuestados: ", promedioPeso
    Escribir"Personas que pesan más de 90 kilos: ", pesados90
    Escribir"Personas que pesan más de  90 kilos y son mayores de 20 años: ", pesados90mayores20
FinAlgoritmo
stdout
Standard output is empty