Question

INTRODUÇÃO A PROGRAMAÇÃO

Escreva um algoritmo que receba números inteiros. Determine o menor, maior, a soma e a média dos números (UTILIZANDO FUNÇÕES). O programa somente será finalizado quando o usuário digitar o número 0 (zero) (não deve ser considerado nas comparações).

Answer 1

Eu acho que é isso:

algoritmo "Teste"

var
numeroDigitado, maior, menor: inteiro
soma, somaTotal, quantidadeNumeros: inteiro
media: real

inicio
escreva("Digite um número: ")
leia(numeroDigitado)

maior <- numeroDigitado
menor <- numeroDigitado

funcao calcularMaior (numero: inteiro): inteiro
inicio
        se numero > maior entao
           retorne numero
        senao
                 retorne maior
        fimse
fimfuncao
funcao calcularMenor (numero: inteiro): inteiro
inicio
        se numero < menor entao
           retorne numero
        senao
                 retorne menor
        fimse
fimfuncao

funcao somar (numero: inteiro): inteiro
inicio
        soma <- soma + numero
        retorne soma
fimfuncao

funcao calcularMedia(): real
inicio
        se quantidadeNumeros > 0 entao
           retorne somaTotal / quantidadeNumeros
        senao
                 retorne 0
        fimse
fimfuncao

enquanto numeroDigitado <> 0 faca
         maior <- calcularMaior(numeroDigitado)
         menor <- calcularMenor(numeroDigitado)
         somaTotal <- somar(numeroDigitado)
         quantidadeNumeros <- quantidadeNumeros + 1
 
         escreva("Digite um número: ")
         leia(numeroDigitado)
fimenquanto

escreval("")
escreval("Maior número: ", maior)
escreval("Menor número: ", menor)
escreval("Soma: ", somaTotal)
escreval("Média: ", calcularMedia())

fimalgoritmo