Alvaro PSY

algoritmo "vetor1"
// Função : Média
// Autor : William
// Data : 21/03/2012
// Seção de Declarações
var
I: INTEIRO
MD, SM: REAL
NOME: VETOR[0..2] DE CARACTER
NOTA: VETOR[0..2] DE INTEIRO
inicio
// Seção de Comandos
PARA I DE 0 ATE 2 FACA
ESCREVAL("NOME: ")
LEIA(NOME[I])
ESCREVAL("NOTA: ")
LEIA(NOTA[I])
FIMPARA
SM <- 0
PARA I DE 0 ATE 2 FACA
SM <- SM + NOTA[I]
FIMPARA
MD <- (SM / 3)
PARA I DE 0 ATE 2 FACA
SE(NOTA[I] > MD)ENTAO
ESCREVAL("NOME: ",NOME[I]," - NOTA: ",NOTA[I])
FIMSE
FIMPARA
fimalgoritmo