NOTAS DE ALUNOS E TURMA // Algoritmo e programação

Elabore um algoritmo que permita ler 6 notas de alunos de uma turma e os respectivos nomes, identifique qual a nota máxima e a mínima e mostre quais os respectivos nomes dos alunos que as obtiveram.

algoritmo "20"
var
nota: vetor[1..6] de real
nome: vetor[1..6] de caractere
max,min: real
i: inteiro
inicio
max <- 0
min <- 10
Para i de 1 ate 6 faca
Escreval("Digite o nome do(a) aluno(a) ",i, ".")
Leia(nome[i])
Escreval("Digite a nota do(a) ", nome[i], ".")
Leia(nota[i])
se (nota[i]>max) entao
max <- nota[i]
fimse
se (nota[i]<min) entao
min <- nota[i]
fimse
fimpara
limpatela
Escreva("Nota máxima: ", max)
para i de 1 ate 6 faca
se (nota[i]=max) entao
Escreval(". Aluno (a): ", nome[i])
fimse
fimpara
Escreva("Nota mínima: ", min)
para i de 1 ate 6 faca
se (nota[i]=min) entao
Escreval(". Aluno (a): ", nome[i])
fimse
fimpara
fimalgoritmo