Ola meus padawans, o exercício é fácil e pratico. Não requer prática nem tão pouco habilidade, qualquer um de vocês pode fazer. :D
Program Mediadaetec;
var salas,contsalas,alunos,contalunos,contnotas:integer;
notas,mediaaluno,mediasala,mediaetec:real;
Begin
mediaaluno:=0;
mediasala:=0;
mediaetec:=0;
write('Quantas salas tem na Etec...:');
read(salas);
for contsalas:=1 to salas do
begin
write('Quantos alunos tem na ',contsalas,'ª sala?....:');
read(alunos);
for contalunos:=1 to alunos do
begin
writeln('Para o ',contalunos,'º Aluno digite as seguintes notas');
for contnotas:=1 to 5 do
begin
write(contnotas,'ª nota...:');
read(notas);
mediaaluno:=mediaaluno+notas;
end;
mediaaluno:=mediaaluno/5;
writeln('A média do ',contalunos,'º aluno é ',mediaaluno:2:2);
writeln(' ');
mediasala:=mediasala+mediaaluno;
mediaaluno:=0;
end;
mediasala:=mediasala/salas;
writeln ('A média da sala é ',mediasala:2:2);
writeln (' ');
mediaetec:=mediaetec+mediasala;
mediasala:=0;
end;
mediaetec:=mediaetec/salas;
write('A media da Etec é ',mediaetec:2:2);
readkey();
End.
Infelizmente ao copiar do compilador e colar o código aqui, o mesmo perde a identação, aí fiz na unha mesmo kkkk.
Fácil não é?!!!
Qualquer dúvida me procurem na Etec ou mandem um e-mail para joao.sanches10@etec.sp.gov.br
Bons estudos meus padawans.
