Algoritmo que leia 10 numeros e exiba media entre maior e menor

[Tuufee]

Boa noite, estou batendo cabeça para fazer esse algoritmo, mais não esta dando certo, agradeço muito se puderem me ajudar.

"Escreva um algoritmo que leia 10 números e exiba a média entre o maior e o menor entre os números lidos" 

Var
c, maior, menor, num: inteiro
med : real


Inicio
maior <- 0
menor <- 0
     para c de 1 ate 10 faca
         escreva("Digite um numero inteiro :")
         leia(num)
     Se (num > maior) então
         maior <- 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)

 

[devair1010]

@Tuufee    seu algoritmo está certo só faltou essas três linhas, como está 

comentado aqui no seu código :

Algoritmo "maior e menor"
Var
c, maior, menor, num: inteiro
med : real


Inicio
maior <- 0
//menor <- 0 //deletar essa linha
     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  // acrecentar essa linha
           menor:=num  //acrecentar essa linha
         fimse         //acrecentar essa linha
         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

 

[Tuufee]

@devair1010 muito obrigado cara, deu certo, mas desculpe a ignorância, não estou entendendo porque o contador está possibilitando o menor valor entrar na variável.

[devair1010]

@Tuufee    é porque ele precisa pegar o primeiro número e depois se o próximo

número for menor que ele então esse passa a ser o menor número.

[Tuufee]

@devair1010 valeu cara, agora entendi.

[Simon Viegas]

Olá a todos.

 

Só um cuidado especial na identação do código, mais abaixo exemplo 2 exemplos:
 

Obs.:pela lógica do algoritmo, seria necessário utilizar um senao nas estruturas de seleção (se), pois um mesmo número não pode ser ao mesmo tempo maior e menor, ou seja, caso seja atualizado o maior, necessariamente não poderia atualizar o menor. (são condições mutuamente exclusivas, logo não se faz necessário continuar verificando).

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 c=1 então
      menor:=num
   fimse
   se num > maior então
      maior <- num
   senao
      se (num < menor) então
         menor <- num
      fimse
   fimse
fimpara
med <- (maior + menor) /2
escreval("A média entre o maior e o menor é ",med)
FIMALGORITMO

 

Obs.2: se ainda não não estudou se/senao, ignore, o código ficaria assim:

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 c=1 então
      menor:=num
   fimse
   se num > maior então
      maior <- 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

 

No aguardo.