média de uma turma
Publicado por NewLinuxer 13/12/2005
[ Hits: 4.104 ]
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.
Editor de Texto feito no Lazarus(Delphi 7 para Linux)
Tocador de vídeo no Lazarus (Delphi 7 para Linux).
Nenhum comentário foi encontrado.
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Debian Bookworm para a versão beta Debian 13 Trixie (3)
Não consigo acessar os modos de desempenho (5)
Alguém pode me ajudar porfavor como executar comandos ao iniciar no i3... (2)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba