Escreva um programa em Pascal que classifica as notas de uma turma em: excelente, de 9 a 10; suficiente, de 7 a 9, sem incluir 9; insuficiente, de 0 a 7, sem incluir 7. O programa também deve mostrar a média das provas ao final. Necessito de uma ajuda.
Program ue ;varcont_suf,cont_insuf,cont_exelent,cont_total:real;nota,soma,media:real;Begin soma:=0; cont_total:=0; cont_exelent:=0; cont_suf:=0; cont_insuf:=0;//finalizador para notas -1.writeln('Este programa classifica as notas de uma turma em excelente, suficiente e insuficiente');writeln;writeln('Digite -1 ou menos para finalizar');write('Digite uma nota> ');readln(nota);//Condicionais das notas do algoritmo//Se a nota for >=9 ou <=10, é somado +1 ao cont_excelente. repeat begin if(nota>=9)and(nota<=10)then cont_exelent:=cont_exelent+1; media:=media+nota; cont_total :=cont_total+1; //Se a nota for >=7 ou <=8, é somado +1 ao cont_suf. if(nota>=7)and(nota<=8)then cont_suf:=cont_suf+1; media:=media+nota; cont_total:=cont_total+1; //Se a nota for >=0 ou <=6, é é somado +1 ao cont_insuf. if (nota>=0)and(nota<=6) then cont_insuf:=cont_insuf+1; media:=media+nota; cont_total:=cont_total+1; end; write('Digite uma nota> '); readln(nota);until nota<>-1;//Calculando a media. soma:=(media/cont_total);//Total de notas excelentes, suficientes e insuficientes.writeln('O número de notas exelentes é= ', cont_exelent:0:2);writeln('O número de notas suficientes é= ', cont_exelent:0:2);writeln('O número de notas isuficientes é= ', cont_insuf:0:2);writeln;writeln('A média das notas é=', soma:0:2); End.
.