Escreva um programa para informar o maior elemento de um vetor de 5 posições do tipo inteiro - Exercícios Resolvidos de VisuAlg

Informe o valor do 1.o elemento: 4
Informe o valor do 2.o elemento: 12
Informe o valor do 3.o elemento: 8
Informe o valor do 4.o elemento: 4
Informe o valor do 5.o elemento: 11
O maior valor no vetor é: 12

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

algoritmo "Ler um vetor de 5 inteiros e indicar o maior elemento"

var
  // vamos declarar e construir um vetor de 5 inteiros
  numeros: vetor[1..5] de inteiro
  maior, i: inteiro

// função que retorna o maior valor no vetor. Note que o VisuAlg
// não permite a passagem de um vetor ou matriz para uma função. Por
// isso temos que declarar o vetor ou matriz no escopo global
funcao maior_valor(): inteiro
var
  maior, i: inteiro
inicio
  // vamos assumir que o maior valor é o primeiro elemento do vetor
  maior <- numeros[1];
  	
  // agora vamos varrer o vetor e verificar se existe elemento com
  // um valor maior do que aquele que já temos
  para i de 1 ate 5 faca
    se numeros[i] > maior entao
      maior <- numeros[i]
    fimse
  fimpara

  // retorna o maior valor encontrado
  retorne maior
fimfuncao

// função principal do programa
inicio
  // vamos pedir para o usuário informar os valores dos elementos
  para i de 1 ate 5 faca
    escreva("Informe o valor do ", i, ".o elemento: ")
    leia(numeros[i])
  fimpara

  // agora vamos obter o maior valor
  maior <- maior_valor()
  escreva("O maior valor no vetor é: ", maior)
  
fimalgoritmo