algoritmo Media_aritmetica_de_numeros_introducidos
variables
caracter
seguir
entero acumulador,
contador,
numero
inicio
acumulador ←
0
contador ←
0
hacer
escribir( "Introduzca
un número entero: "
)
leer( numero )
acumulador ←
acumulador +
numero
contador ← contador
+ 1
escribir(
"Ha introducido ",
contador,
"
número(s)" )
escribir(
"La suma es ", acumulador )
escribir(
"¿Desea
introducir otro número (s/n)?: " )
leer( seguir )
mientras
( seguir <>
'n' )
escribir(
"La media aritmética es ",
acumulador /
contador )
fin |