Eric Pulquerio

Bom dia Galera de TI! Estou começando a aprender pascal e estou com algumas dúvidas. Eu escrevi um código ao qual as funções básicas dele é: • Fazer a leitura de 3 notas de provas. • Verificar se a media das duas primeiras é maior que 7 ou se a terceira é maior que 7. • Verificar qual foi a maior e menor nota. • Retornar se foi aprovado ou reprovado de acordo com a nota. O meu problema está sendo fazer um loop para encontrar a maior e menor nota. Será que alguém pode me ajudar? program Teste; var { INICIO: DIZER MEU TIPO DE VARIAVÉL } NotaMaior, NotaMenor : real; nota1, nota2, nota3, media : real; i : integer; { FIM: DIZER MEU TIPO DE VARIAVÉL } begin { INICIO: EXECUÇÃO DO MEU SCRIPT } { INICIO: INFORMAÇÃO INICIAL DO SCRIPT } writeln('Olá. Como vai?'); writeln; writeln('Este programa ira tirar sua media anual. Você ira inserir suas 3 notas'); writeln('do primeiro semestre, e depois as 3 do segundo semestre.'); writeln; writeln('Vamos começar?'); writeln; { FIM: INFORMAÇÃO INICIAL DO SCRIPT } { INICIO: PEGAR VALOR DAS NOTAS } writeln('Insira por favor a nota da P1 do primeiro semestre:'); readln(nota1); writeln('Insira por favor a nota da P2 do primeiro semestre:'); readln(nota2); writeln('Insira por favor a nota da P3 do primeiro semestre: (Caso não tenha feiro digite 0.)'); readln(nota3); { FIM: PEGAR VALOR DAS NOTAS } { INICIO: CALCULO DE MÉDIAS } media := (nota1*0.25 + nota2*10/6) / 2; NotaMaior := 0; NotaMenor := 1; for i:= 1 to 3 do Begin; read(nota); if nota[i] > NotaMaior then NotaMaior := nota[i]; if nota[i] < NotaMenor then NotaMenor := nota[i] End; { FIM: CALCULO DE MÉDIAS } { INICIO: RESULTADO } if (media >= 7.0) or nota3sem1 >= 7.0 then Begin; writeln(' _____ ___ _____ ___ _____ _____ __ _ _____ '); writeln(' | _ \ / | | _ \ / | | _ \ | ____| | \ | | / ___/'); writeln(' | |_| | / /| | | |_| | / /| | | |_| | | |__ | \| | | |___ '); writeln(' | ___/ / / | | | _ / / / | | | _ { | __| | |\ | \___ \ '); writeln(' | | / / | | | | \ \ / / | | | |_| | | |___ | | \ | ___| | '); writeln(' |_| /_/ |_| |_| \_\ /_/ |_| |_____/ |_____| |_| \_| /_____/ '); writeln('Sua maior nota foi ', NotaMaior); writeln('Sua menor nota foi ', NotaMenor); End else Begin; writeln(' _ _ ___ _____ _____ _____ _ _ _____ ___ _____ '); writeln('| | / / / | | ____| / ___/ |_ _| | | | | | _ \ / | | _ \ '); writeln('| | / / / /| | | |__ | |___ | | | | | | | | | | / /| | | |_| | '); writeln('| | / / / / | | | __| \___ \ | | | | | | | | | | / / | | | _ / '); writeln('| |/ / / / | | | |___ ___| | | | | |_| | | |_| | / / | | | | \ \ '); writeln('|___/ /_/ |_| |_____| /_____/ |_| \_____/ |_____/ /_/ |_| |_| \_\ '); End; { FIM: RESULTADO } end .