Question

Crie um algoritmo que peça 10 numeros inteiros e apresente: a média, o maior, e o menor. Faça isto utilizando apenas UMA variável para receber os valores de entrada, as demais são liberadas.

Answer 1

Algoritmo "maior e menor"

Var

c, maior, menor, num: inteiro

med: real

Inicio

maior <- 0

    para c de 1 ate 10 faca

        escreva("Digite um numero inteiro :")

        leia(num)

        Se num > maior então

          maior <- num

        fimse

        se c=1 ENTÃO

          menor:=num

        fimse  

        Se (num < menor) então

          menor <- num

        fimse

    fimpara

    med <- (maior + menor) /2

    Escreval("A média entre o maior e o menor é ",med)

Fimalgoritmo