Usuario:Ricardocorrea~eswikibooks/programacion12

EJERCICIO 5.16 PAG197

Nota: este ejercicio esta hecho con base en la logica de programacion de joyanes. _____________________________________________________________________

se dispone de un cierto numero de valores de los cuales el ultimo es el 999 y se desea determinar el valor maximo de las medias correspondientes a parejas de valores sucesivos.

algoritmo media_parejas
var
 entero:n1,n2
 real:m,max
inicio
 leer(n1,n2)
 max<-(n1+n2)/2
 mientras (n2<>999) o (n1 <>999) hacer
  leer(n1,n2)
  m<-(n1+n2)/2
  si m>max entonces
   max<-m
  fin_si
 fin_mientras
 escribir(`media maxima=`max)
fin