calculo de porcentagem em vetores
Publicado por NewLinuxer 12/12/2005
[ Hits: 11.569 ]
este programma calcula a porcentagem de pessoas, de acordo com a idade que são menores de 18 anos, as idades estão armazenadas em um array de 12 posições
Program exercicio07; uses crt; Type Vetor = array[1..12] of integer; Var idade : array[1..12] of integer; Contador, soma : integer; Begin clrscr; Soma:=0; For contador := 1 To 12 do Begin Write('Digite a ',contador:2,'§ idade: '); Readln (idade[contador]); if idade[contador] < 18 then Soma:= soma+1; end; writeln((soma*100) div 12, '% das pessoas sÆo menores de idade'); Writeln; Readkey; End.
Existência de triângulo, em Pascal
Programa lê nome (básico) - Pascal para iniciantes
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (15)
Tenho dois Link's ( IP VÁLIDOS ), estou tentando fazer o failover... (0)
Pendrive não formata de jeito nenhum (4)