nção que receba o nome de um aluno e uma lista com suas três notas. A função deve então devolver uma tupla com o nome do aluno e a média das notas. Exemplo:

> aprovado "Joao" [80, 60, 100]
("Joao", 80)
-}

e4 :: String -> [Float] -> (String, Float)
e4 nome notas = (nome, sum notas / 3)
--al_media nome notas = 
e4 :: String -> [Float] -> (String, Float)
e4 nome notas = (nome, sum notas / 3)
e4 nome notas = (nome, sum notas / 3)