Exemplo 15

=============================================================

Exemplo 15:

 

Escrever um programa que leia um vetor de 80 elementos inteiros e encontre e mostre o menor e o maior elemento e suas posições no vetor.

============================================================= 

// Seção de Declarações

var

valor:vetor[1..80]de inteiro

maior,menor,cont:inteiro

inicio

// Seção de Comandos 

// O primeiro valor do vetor está fora da instrução PARA   porque ele vai ser tanto o maior valor como o menor e dentro da  instrução para ele ser comparado com os demais valores do vetor e a medida que for encontrando números maiores ou menores, vai substituindo os anteriores.

// As variaveis MAIOR e MENOR vão guardar os índices.

escreva("Escreva um numero: ")            

leia(valor[1])

maior<-1

menor<-1 

para cont de 2 ate 80 faca

     escreva("Escreva um numero :")

     leia(valor[cont])

     se(valor[cont]>valor[maior])então

          maior<-cont

     fimse

     se(valor[cont]<="" então="" font="">

          menor<-cont

     fimse

fimpara

escreval("Maior valor :",valor[maior]," Posição :",maior)

escreval("Menor valor :",valor[menor]," Posição :",menor)

fimalgoritmo

=============================================================