hadagi

Pode ser resolvido sem a necessidade de criar um vetor com a seguinte forma:

var
nome: literal
n1, n2, media: real
i: inteiro
inicio
    Para i <- 1 ate 3 Faca
Escreval ("Digite o nome do ", i, " aluno: ")
 Leia (nome)
Escreval ("Digite a primeira nota")
 Leia (n1)
Escreval ("Digite a segunda nota")
 Leia (n2)
media <- (n1 + n2) / 2
Escreval ("O aluno ", nome, " Obteve a média ", media)
  Fimpara
     fimalgoritmo

Oi gente,

gostaria de ajuda num exercitório de algoritmo a seguir:

Faça um algoritmo que entre com os nomes de três alunos e, a seguir, as suas notas em duas provas realizadas. Os três dados por aluno (nome, nota1 e nota2) devem ser digitados pelo usuário do programa. Finalmente, escreva na tela o nome de cada aluno e a média aritmética obtida.

não consegui calcular a media de cada aluno.

minha tentativa:

algoritmo "semnome"
// Função :
// Autor :
// Data : 13/04/2013
// Seção de Declarações 
var
nomes: vetor [1..3] de caracter
notas: vetor[1..2] de real
i,j: inteiro
ma, soma: real
inicio
// Seção de Comandos 
para i <- 1 ate 3 faca
escreval("Digite o nome do aluno")
leia(nomes[i])
fimpara

para j <- 1 ate 2 faca
escreval("Digite as notas do aluno")
leia(notas[j])
soma <- ma + (notas[1,j])
ma <- soma/2
fimpara
  escreval("A media aritmetica é: ",ma)
fimalgoritmo