média de uma turma
Publicado por NewLinuxer 13/12/2005
[ Hits: 4.338 ]
programa que recebe a primeira no e a segunda, armazenando-as em vetores separados, para 10 alunos, e ao final mostra a média de cada aluno.
program exercicio14; uses crt; Type vetor=array[1..10] of integer; var nota1, nota2: vetor; contador: integer; begin clrscr; For contador:= 1 to 10 do begin Write('Digite a primeira nota do aluno ',contador:2,': '); readln(nota1[contador]); end; writeln; For contador:= 1 to 10 do begin Write('Digite a segunda nota do aluno ',contador:2,': '); readln(nota2[contador]); end; writeln; For contador:= 1 to 10 do Writeln('A media do aluno ',contador,' e:',(nota1[contador]+nota2[contador])/2:2:2); readkey; end.
Gerador de senha Pascal/Lazarus
Nenhum coment�rio foi encontrado.
Customizar a Instalação do Linux Debian com Preseed
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Bora fazer um teste? mbti (12)
Linux Debian 11 Bullseye Reiniciando Sozinho (1)
Possível Migração de windows para linux ???? (pc da empresa) (2)