QWxnb3JpdG1vIEVuY3Vlc3RhCglEZWZpbmlyIGNhbnRpZGFkLCBtdWVzdHJhIENvbW8gRW50ZXJvCglEZWZpbmlyIG5vbWJyZXMsIGFwZWxsaWRvcyBDb21vIENhcmFjdGVyCglEZWZpbmlyIGVkYWQsIHBlc28sIG1lcyBDb21vIEVudGVybwogICAgRGVmaW5pciBpLCBzZWxlY2Npb25hZG8sIG1heW9yZXMzMCwgbmFjaWRvc0p1bGlvLCBjYXJsb3MsIGpvc2UsIHBlc2Fkb3M5MCwgcGVzYWRvczkwbWF5b3JlczIwIGNvbW8gRW50ZXJvCiAgICBEZWZpbmlyIHByb21lZGlvRWRhZCwgcHJvbWVkaW9QZXNvIGNvbW8gUmVhbAoJRXNjcmliaXIgJnF1b3Q7SW5ncmVzZSBsYSBjYW50aWRhZCBkZSBwZXJzb25hcyBhIGVuY3Vlc3RhcjomcXVvdDsKCUxlZXIgY2FudGlkYWQKCW11ZXN0cmEgJmx0Oy0gY2FudGlkYWQgLyAxMAoJRGltZW5zaW9uIG5vbWJyZXNbbXVlc3RyYV0sIGFwZWxsaWRvc1ttdWVzdHJhXSwgZWRhZFttdWVzdHJhXSwgcGVzb1ttdWVzdHJhXSwgbWVzW211ZXN0cmFdCgkKCQogICAgUGFyYSBpICZsdDstIDEgSGFzdGEgbXVlc3RyYSBDb24gUGFzbyAxIEhhY2VyCgkJRXNjcmliaXIgJnF1b3Q7RW5jdWVzdGFkbyAmcXVvdDssIGkKCQlFc2NyaWJpciAmcXVvdDtOb21icmU6JnF1b3Q7CgkJTGVlciBub21icmVzW2ldCgkJRXNjcmliaXIgJnF1b3Q7QXBlbGxpZG86JnF1b3Q7CgkJTGVlciBhcGVsbGlkb3NbaV0KCQlFc2NyaWJpciAmcXVvdDtFZGFkOiZxdW90OwoJCUxlZXIgZWRhZFtpXQoJCUVzY3JpYmlyICZxdW90O1Blc286JnF1b3Q7CgkJTGVlciBwZXNvW2ldCglFc2NyaWJpciAmcXVvdDtNZXMgZGUgbmFjaW1pZW50bzomcXVvdDsKCQlTaSBtZXNbaV0gJmx0Oz0xMiBFbnRvbmNlcwoJCQlMZWVyIG1lc1tpXQoJCVNpTm8KCQkJRXNjcmliaXIgJnF1b3Q7TWVzIGRlIG5hY2ltaWVudG8gbm8gdmFsaWRvJnF1b3Q7CgkJRmluIFNpCglGaW5QYXJhCiAgIAogICAgbWF5b3JlczMwID0gMAogICAgcHJvbWVkaW9FZGFkID0gMAogICAgbmFjaWRvc0p1bGlvID0gMAogICAgY2FybG9zID0gMAogICAgcHJvbWVkaW9QZXNvID0gMAogICAgcGVzYWRvczkwID0gMAogICAgcGVzYWRvczkwbWF5b3JlczIwID0gMAoJUGFyYSBpICZsdDstIDEgSGFzdGEgbXVlc3RyYSBDb24gUGFzbyAxIEhhY2VyCiAgICAgICAgU2kgZWRhZFtpXSAmZ3Q7IDMwIEVudG9uY2VzCiAgICAgICAgICAgIG1heW9yZXMzMCA9IG1heW9yZXMzMCArIDEKICAgICAgICBGaW5TaQogICAgICAgIHByb21lZGlvRWRhZCA9IHByb21lZGlvRWRhZCArIGVkYWRbaV0KICAgICAgICBTaSBtZXNbaV0gPSA3IEVudG9uY2VzCiAgICAgICAgICAgIG5hY2lkb3NKdWxpbyA9IG5hY2lkb3NKdWxpbyArIDEKICAgICAgICBGaW5TaQogICAgICAgIFNpIG5vbWJyZXNbaV0gPSAmcXVvdDtDYXJsb3MmcXVvdDsgRW50b25jZXMKICAgICAgICAgICAgY2FybG9zID0gY2FybG9zICsgMQogICAgICAgIEZpblNpCiAgICAgICAgcHJvbWVkaW9QZXNvID0gcHJvbWVkaW9QZXNvICsgcGVzb1tpXQogICAgICAgIFNpIG5vbWJyZXNbaV0gPSAmcXVvdDtKb3MmZWFjdXRlOyZxdW90OyBFbnRvbmNlcwogICAgICAgICAgICBFc2NyaWJpciZxdW90O1Jlc3B1ZXN0YXMgZGUgSm9zJmVhY3V0ZTs6JnF1b3Q7CiAgICAgICAgICAgIEVzY3JpYmlyJnF1b3Q7RWRhZDogJnF1b3Q7LCBlZGFkW2ldCiAgICAgICAgICAgIEVzY3JpYmlyJnF1b3Q7UGVzbzogJnF1b3Q7LCBwZXNvW2ldCiAgICAgICAgICAgIEVzY3JpYmlyJnF1b3Q7TWVzIGRlIG5hY2ltaWVudG86ICZxdW90OywgbWVzW2ldCiAgICAgICAgRmluU2kKICAgICAgICBTaSBwZXNvW2ldICZndDsgOTAgRW50b25jZXMKICAgICAgICAgICAgcGVzYWRvczkwID0gcGVzYWRvczkwICsgMQogICAgICAgICAgICBTaSBlZGFkW2ldICZndDsgMjAgRW50b25jZXMKICAgICAgICAgICAgICAgIHBlc2Fkb3M5MG1heW9yZXMyMCA9IHBlc2Fkb3M5MG1heW9yZXMyMCArIDEKICAgICAgICAgICAgRmluU2kKICAgICAgICBGaW5TaQogICAgRmluUGFyYQogICAgcHJvbWVkaW9FZGFkID0gcHJvbWVkaW9FZGFkIC8gMTAKICAgIHByb21lZGlvUGVzbyA9IHByb21lZGlvUGVzbyAvIDEwCgkKICAgCiAgICBFc2NyaWJpciZxdW90O1BlcnNvbmFzIG1heW9yZXMgZGUgMzAgYSZudGlsZGU7b3M6ICZxdW90OywgbWF5b3JlczMwCiAgICBFc2NyaWJpciZxdW90O1Byb21lZGlvIGRlIGVkYWQgZGUgbG9zIGVuY3Vlc3RhZG9zOiAmcXVvdDssIHByb21lZGlvRWRhZAogICAgRXNjcmliaXImcXVvdDtFbmN1ZXN0YWRvcyBuYWNpZG9zIGVuIEp1bGlvOiAmcXVvdDssIG5hY2lkb3NKdWxpbwogICAgRXNjcmliaXImcXVvdDtFbmN1ZXN0YWRvcyBsbGFtYWRvcyBDYXJsb3M6ICZxdW90OywgY2FybG9zCiAgICBFc2NyaWJpciZxdW90O1Byb21lZGlvIGRlIHBlc28gZGUgbG9zIGVuY3Vlc3RhZG9zOiAmcXVvdDssIHByb21lZGlvUGVzbwogICAgRXNjcmliaXImcXVvdDtQZXJzb25hcyBxdWUgcGVzYW4gbSZhYWN1dGU7cyBkZSA5MCBraWxvczogJnF1b3Q7LCBwZXNhZG9zOTAKICAgIEVzY3JpYmlyJnF1b3Q7UGVyc29uYXMgcXVlIHBlc2FuIG0mYWFjdXRlO3MgZGUgIDkwIGtpbG9zIHkgc29uIG1heW9yZXMgZGUgMjAgYSZudGlsZGU7b3M6ICZxdW90OywgcGVzYWRvczkwbWF5b3JlczIwCkZpbkFsZ29yaXRtbwo=
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