média dos numeros informados em posiçoes pares em um vetor
Publicado por NewLinuxer 12/12/2005
[ Hits: 6.657 ]
programa para calcular a media dos quarenta números informados em um vetor, porem só considera os numeros informados nas posições de ordem par.
Program exercicio09; uses crt; Type Vetor = array[1..40] of integer; Var vet : Vetor; soma,soma2, contador : integer; Begin clrscr; For contador := 1 To 40 do begin write('Informe o ',contador:2,'§ numero: '); readln (vet[contador]); if (contador mod 2) = 0 then begin soma:=soma+1; soma2:=soma2+vet[contador]; end; end; writeln; writeln('A media dos numeros pares informados e: ',soma2/soma:0:2); Readkey; end.
Calculadora Empresarial Lazarus
Calculadora de décimo terceiro no Lazarus
Exemplo de for que mostra 6 números em ordem crescente
controle de notas de um aluno com registro e array
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
Gentoo bane contribuições de código feitas com IA (7)
Ubuntu — tentando iniciar o windows? (3)
Failed to start Zabbix Server (1)
[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