dizer se o aluno passou ou nao
progrma que recebe a média de cada aluno e armazena em um vetor, após isso, calcula a média geral da turma, mostra quem passou, ou seja, com média >=70 e quem nao passou.
Descrição
progrma que recebe a média de cada aluno e armazena em um vetor, após isso, calcula a média geral da turma, mostra quem passou, ou seja, com média >=70 e quem nao passou.
program exercicio15;
uses crt;
var
nota: array[1..10] of real;
contador, repr: integer;
geral:real;
begin
clrscr;
geral:=0;
repr:=0;
For contador:= 1 to 10 do
begin
Write('Digite a nota do aluno ',contador:2,': ');
readln(nota[contador]);
geral:= geral+nota[contador];
if nota[contador] < 7 then
repr := repr+1;
end;
writeln;
writeln('A media da classe foi: ',geral/10:0:2);
writeln;
writeln('A quantidade de alunos aprovados ‚: ',10-repr);
writeln('A quantidade de alunos reprovados ‚: ',repr);
readkey;
end.