Program Pzim ;
{Dado Nome e notas ( total de 6 ) alunos, faça um algoritmo que:
a) Imprima Nome e média dos alunos aprovados com Média > = 7.0.
b) Imprima Nome e média dos alunos em recuperação com 5.0 >= Média <7.0.
c) Imprima Nome e média dos alunos reprovados com Média <5.0
eu nao sei como faser para aparecer todos os nomes , por exemplo dos (aprovados).}
var
nome:array[1..6] of string; {vetor onde vai ser armazenado os nomes}
nota:array[1..6] of real; {vetor onde vai ser armazenado as notas}
i:integer;
Begin
for i:=1 to 6 do {for para entrada dos nados}
begin
write('Digite o nome : ');
readln(nome[i]); {recebe os nomes e armazena no vetor nome na posição i de 1 até 6}
write('Digite a nota : '); {recebe as notas e armazena no vetor nota na posição i de 1 até 6}
read(nota[i]);
clrscr; //limpa a tela a cada vez que é digitado um nome e nota
end;
clrscr; //limpa a tela
writeln('Alunos APROVADOS : '); //exibe a mensagem fora do for para aparecer somente uma vez
for i:=1 to 6 do // faz de 1 até o 6
begin
if (nota[i]>=7) then
begin
writeln('Nome : ',nome[i],' - com nota : ',nota[i]:1:2);
end
end;
writeln; //insere uma linha em branco, para organizar
writeln('Alunos em RECUPERAÇÃO'); //exibe a mensagem
for i:=1 to 6 do
begin
if ((nota[i]>=5) and (nota[i]<7)) then
begin
writeln('Nome : ',nome[i],' - com nota : ',nota[i]:1:2);
end
end;
writeln; //insere uma linha em branco, para organizar
writeln('Alunos REPROVADOS'); //exibe a mensagem
for i:=1 to 6 do
begin
if (nota[i]<5) then
begin
writeln('Nome ',nome[i],' - com nota : ',nota[i]:1:2);
end;
end;
{é preciso fazer um for para cada opção de nota}
End.
