Ana Leticia Montelo

Obrigada! Muito obrigada! Eu o modifiquei e fiz assim: algoritmo "Questão 5" //Escrever um algoritmo que leia um vetor com 10 elementos inteiros e //determine o maior e o menor elementos deste vetor, bem como suas //posições. Estes valores devem ser escritos no algoritmo principal e //devem ser passados/recebidos pela função var vet: vetor [1..10] de inteiro contador,a,ma,me,posma,posme:inteiro procedimento lernumero():inteiro inicio para a de 1 ate 10 faca escreva("Escreva o ",a,"º número: ") leia(vet[a]) fimpara fimprocedimento Procedimento comparar() inicio me<-vet[1] ma<-vet[1] posma<-1 posme<-1 para a de 2 ate 10 faca se me > vet[a] então me<- vet[a] posme<-a fimse fimpara para a de 2 ate 10 faca se ma < vet[a] então ma<- vet[a] posma<-a fimse fimpara escreval("O menor elemento do vetor é" , me, " e está na posição ",posme) escreval("O maior elemento do vetor é" , ma, " e está na posição ",posma) fimprocedimento inicio lernumero() comparar() fimalgoritmo

Alguém me explica como coloca a posição do primeiro valor digitado caso ele seja o maior ou o menor? Por exemplo eu estou digitando de 1 ate 10 aí no final aparece que a posição do menor(1) é 0 e se eu digitar ao contrario (de 10 ate 1) aparece que a posição do maior (10) é 0. Por favor me ajuda alguém! É urgente !!! algoritmo "maior e menor" var vet: vetor [1..10] de inteiro N,MA,ME,contador,posma,posme,a:inteiro procedimento lernumero() inicio para a de 1 ate 10 faca escreva("Escreva o ",a,"º número: ") leia(vet[a]) fimpara fimprocedimento procedimento comparar() inicio para a de 1 ate 10 faca se (contador=0) então ME <- vet[a] MA <- vet[a] fimse se vet[a] > MA então MA <- vet[a] posma<-a fimse se vet[a] < ME então ME <- vet[a] posme<-a fimse contador<-contador+1 fimpara fimprocedimento inicio contador<-0 lernumero() comparar() escreval ("MAIOR:",MA," posição",posma) escreval ("MENOR:",ME," posição",posme) fimalgoritmo