Problema no algoritmo

Assunto: Problema no algoritmo Dom Nov 15, 2009 3:06 pm

fazer um algoritmo que leia os nomes e as notas de 20 alunos em 4 disciplinas. A seguir calcule e imprima a media semestral do aluno e a media da turma. O algoritmo deve ainda informar qual o aluno com maior media e o aluno com menor media.

to com problema em mostra o aluno com maior e menor media

var
nome:caracter
x,y:real
i:inteiro
vet:vetor[1..4] de inteiro

inicio
para i<-1 ate 20 passo 1 faca
Escreval("qual o nome do aluno?")
leia(nome)
para i<-1 ate 4 passo 1 faca
escreval("qual a media de ",nome," na ",i,"ª materia?")
leia(vet[i])
x<-x+vet[i]
y<-y+vet[i]
fimpara
x<-x/4
escreval("Media semestral de ",nome,": ",x)
x<-0
fimpara
y<-(y/4)/20
escreval("Media da turma: ",y)

fimalgoritmo

Assunto: Re: Problema no algoritmo Ter Nov 17, 2009 11:02 am

consegui resolver

var
nome,nmaior,nmenor:caracter
x,y:real
i,l,maior,menor:inteiro
vet:vetor[1..4] de inteiro
inicio
x<-0
para i<-1 ate 20 passo 1 faca
Escreval("qual o nome do aluno?")
leia(nome)
para l<-1 ate 4 passo 1 faca
escreval("qual a media de ",nome," na ",l,"ª materia?")
leia(vet[i])
x<-x+vet[i]
y<-y+vet[i]
se (maior
maior<-vet[i]
menor<-maior -1
nmaior<-nome
fimse
se (menor>=vet[i]) entao
menor<-vet[i]
nmenor<-nome
fimse
fimpara
x<-x/4
escreval("Media semestral de ",nome,": ",x)
x<-0
fimpara
y<-(y/4)/20
escreval("Media da turma: ",y)
escreval("Aluno ",nmaior," tem a maior media: ",maior)
escreval("Aluno ",nmenor," tem a menor media: ",menor)
fimalgoritmo

» Estou com Problema neste Algaritmo
» Algoritmo De Porcentagem
» duvida algoritmo