Ejercios en pseudocodigo 16-18 (Grupo salva)

Programa 16

Inicio
Declarar cadena nombre,nombremay;
Declarar entero edad,edadmay,cont,media;
edad=0;cont=0;media=0;edadmay=0;
Mientras (cont<50)
Visualizar "Introduce un nombre";
Leer nombre;
Visualizar "Introduce la edad";
Leer edad;
Si (cont=0)
nombremay=nombre;
edadmay=edad
Fin Si
Si (edad>=20)
Visualizar "El alumno ",nombre," tiene ",edad," años";
Fin Si
media=media+edad;
Si (edad>edadmay)
nombremay=nombre;
edadmay=edad;
Fin Si
cont=cont+1
Fin Mientras
media=media/cont;
Visualizar "La edad media es "edad;
Visualizar "El mayor de los alumnos es ",nombre," con ",edad," años.";
Fin Programa

-----------------------------------------------------------------------/
Programa 17

Inicio
Declarar cadena nombre,nombremx
Declarar entero apuesta,apuestamx,cont1,cont2,costo, premio,socios,ganancia
apuesta=0;cont=0;costo=0;premio=0;socios=0;apuestamx=0;ganancia=0;
Visualizar "Introduce el importe del premio"; Leer premio;
Visualizar "Introduce el costo de la apuesta"; Leer costo;
Visualizar "Introduce el numero de participantes"; Leer socios;
Hacer
Hacer
Visualizar "La maxima aportacion puede ser de " (costo-cont2);
Visualizar "Introduce el nombre del participante"; Leer nombre;
Visualizar "Introduce su aportacion"; Leer apuesta;
Si (cont2>precio)
Visualizar "La apuesta introducida supera el precio total de ",precio;
cont2=cont2-apuesta;
Fin si
cont2=cont2+apuesta;
Mientras (cont2>precio)
ganancia=(apuesta*premio)/costo;
Visualizar "El socio ",nombre," con una aportacion de ",apuesta," tendria una ganancia de ",ganancia,".";
si (ganancia>apuestamx)
nombremx=nombre;
apuestamx=ganancia;
Fin si
cont1=cont1+1;
Mientras (cont1Visualizar "El socio ",nombremx," es quien obtendia la mayor ganancia, con un total de ",apuestamx," Euros.";
Fin Programa

-----------------------------------------------------------------------/

Programa 18

Inicio
Declarar cadena nombre,sexo;
Declarar entero edad;
edad=0;
Para desde 1 a 60 inc 1
Visualizar "Introduzca nombre de profesor"; Leer nombre;
Hacer
Visualizar "Introduzca sexo H (Hombres) o M (Mujeres)"; Leer sexo
Mientras (sexo> Hacer
Visualizar "Introduzca edad, debe de estar comprendida entre 18 y 70 años"; Leer edad
Mientras (edad<18 and edad>70)
Si (edad>45)
Si (sexo=H)
Visualizar "El profesor ",nombre," es mayor de 45 años.";
Sino
Visualizar "La profesora ",nombre," es mayor de 45 años.";
Fin si
Fin si
Fin Para
Fin Programa

-----------------------------------------------------------------------/