Algoritmo "Media_dos_alunos"

Var
                    vetnome: vetor [0..10] de caractere
                    vetnota1: vetor [0..3] de real
                    vetnota2: vetor [0..3] de real
                    vetnota3: vetor [0..3] de real
                    vetnota4: vetor [0..3] de real
                    vetmedia1:vetor [0..1] de real
                    vetmedia2: vetor [0..1] de real
                    vetmedia3: vetor [0..1] de real
                    vetmedia4: vetor [0..1] de real
                    vetsoma: vetor[0..4] de  real
                    vetmedia: vetor [0..4] de real
                    status: caractere

                    i, N: inteiro
                    soma, media: real

Inicio
                      soma <- 0
                      escreva("Quantos alunos serão avaliados? ")
                      leia(N)
                         para i de 0 ate N - 1 faca
                         escreval("Informe o nome do ",i + 1,"º aluno: ")
                         leia(vetnome[i])
                         escreva( "Informe a 1ª nota: " )
                         leia(vetnota1[i])
                         escreva("Informe a 2ª nota :" )
                         leia(vetnota2[i])
                         escreva("Informe a 3ª nota: " )
                         leia(vetnota3[i])
                         escreva("Informe a 4ª nota: " )
                         leia(vetnota4[i])
                         vetsoma[i] <- (soma + vetnota1[i] + vetnota2[i] + vetnota3[i] + vetnota4[i])
                         vetmedia[i] <- vetsoma[i]/4
                      fimpara

                       para i de 0 ate N - 1 faca
                            escreval(i + 1,"ºaluno(a): ",vetnome[i])
                            escreval(" 1ª Nota: ",vetnota1[i])
                            escreval(" 2ª Nota: ",vetnota2[i])
                            escreval(" 3ª Nota: ",vetnota3[i])
                            escreval(" 4ª Nota: ",vetnota4[i])
                            escreval(" Média:  ",vetmedia[i]: 2 :  2)
                                se vetmedia[i] >= 6 entao
                                status < - "Aprovado"
                                    senao
                                    se (vetmedia[i] < 6) e (vetmedia[i] >= 4) entao
                                    status < - "Exame"
                                       senao
                                       se vetmedia[i] < 4 entao
                                       status <- "Reprovado"
                                       fimse
                                    fimse
                                fimse
                            escreval(" Aluno(a) " , vetnome[i], " -  Situação: ",status)
                       fimpara

Fimalgoritmo