Exemplo de Algoritmo usando vetor no Visual G

Determine e exiba a média aritmética de um aluno de ensino médio a partir de suas 4 notas.
Algoritmo (Visual G)

algoritmo "semnome"

// Autor : Thiago Campos

// Data : 23/08/2012

// Seção de Declarações

var

soma, saida: Real

nota: vetor[1..4] de Real

i: Inteiro

inicio

// Seção de Comandos

   Para i<-1 ate 4 passo 1 faca

        Escreva("Informe a nota ",i, ":")

        Leia(nota[i])

        soma <- soma + nota[i]

        saida <- soma/4

   fimPara

Escreva("A media do aluno é ", saida)

fimalgoritmo