Encontrar o menor valor de uma sequencia

[Tânia Silva 0]

Olá pessoal, estou fazendo um algoritmo que pede o peso do animal, sexo, codigo de 90 animais.

Depois o programa deve mostrar qual a vaca mais magra e qual o boi mais gordo e dar a média dos pesos.

 

Meu problema está sendo como saber qual o menor peso e qual o maior?

 

Se alguém souber agradeço.

 

Aqui vai o algoritmo até o moomento

{Declaração das variáveis}

declare cod, peso, media, ttpeso real
declare sexo, qtmasc, qtfem, contpeso inteiro

inicio

  {Inicialização das variáveis}

  cod    <- 0
  peso   <- 0
  sexo   <- 0
  media  <- 0
  pesomasc <- 0
  pespfem  <- 0
  contpeso <- 0



  {Código do Algoritmo}

  para cont de 0 ate 5 faca

  mostre-pl ('Digite 1 para masc ou 2 para fem: ')
  leia (sexo)
  enquanto (sexo <> 1) e (sexo <> 2) faca
           mostre ('Sexo invalido, informe 1. masc ou 2.fem: ')
           leia (sexo)
  fim-enquanto

  mostre-pl ('Entre com o codigo do animal: ')
  leia (cod)
  se (cod = 0) entao
     mostre-pl ('Codigo invalido. Digite o codigo: ')
     leia (cod)
  fim-se

  mostre-pl ('Entre com o peso do aniaml: ')
  leia (peso)
  enquanto (peso < 100) faca
           mostre-pl ('O peso deve ser maior que 100Kg, corrija: ')
           leia (peso)
  fim-enquanto


  contpeso <- contpeso + 1

  fim-para

  ttpeso <- ttpeso + peso
  media <- ttpeso / contpeso
  pesomasc
  pesofem

  mostre-pl ('A media dos pesos eh: ', media )
  mostre-pl ('O peso da vaca mais magra eh: ',  )
  mostre-pl ('A peso do boi mais gordo eh: ',  )

  pausa

fim

[Christian Carrard 0]

Olá, uma dica interessante é guardar os pesos (maior e menor) em variáveis, após digitado o primeiro peso guarda nessas variáveis, após isso teste cada peso digitado com o maior e menor...

 

Exemplo:

 

se (pesoMaior < peso) então //peso seria uma variável onde guardaria cada peso digitado

pesoMaior := peso

[lycoz 1]

PesoMenor=9999;

Se (PesoMenor > Peso) entao

PesoMenor <-Peso

fim-se