Exercicios ajuda

[victormvleste]

Pessoal tenho o seguinte exercicio:

Elabore um algoritmo, para ler

uma seqüência de salários, onde o indicador

(Flag) de termino da seqüência de salários é um

salário igual a 0 . O algoritmo deve

escrever, em ordem crescente, os três maiores

valores dos salários lidos.

var

salario,primeiro,segundo,terceiro,armazena:real
inicio
primeiro<-0
segundo<-0
terceiro<-0
repita
escreva("Digite um salario do empregado")
leia (salario)
se(salario>primeiro) então
primeiro<-salario
senao
se((salario>segundo)e(salario<primeiro)) então
segundo<-salario
senao
se((salario>terceiro)e(salario<segundo))então
terceiro<-salario
fimse
fimse
fimse
armazena<-salario
se(primeiro>armazena)e(segundo<armazena)então
segundo<-armazena
senao
se(segundo>armazena)e(terceiro<armazena)então
terceiro<-armazena
fimse
fimse
ate(salario=0)
escreva("Maior salario: ",primeiro,"  Segundo:  ",segundo,"  Terceiro:  ",terceiro)

fimalgoritmo

não esta dando certo....nao sei como fazer

estou fazendo no visualg que é a especificacao

mas se me ajudarem em outra linguagem nao tem problema

ajuda por favor.....

valeu abraço

[duda3005]

se(salario>primeiro) então
   primeiro<-salario
senao se((salario>segundo)e(salario<primeiro)) então
   segundo<-salario
senao se((salario>terceiro)e(salario<segundo))então
   terceiro<-salario

reveja essa lógica...

se(salario>primeiro) então

.

.

.

senao

se((salario>segundo)e(salario<primeiro)) então //quando ele sai do primeiro "SE" ele já está dizendo que salario>primeiro... então ele não pode ser "salario<primeiro"

Entendeu??

Re-veja todos os seus IFS .. reparei que alguns outros ali também não vão funcionar...