calculo de porcentagem em vetores
Publicado por NewLinuxer 12/12/2005
[ Hits: 11.779 ]
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.
Gerador de senha Pascal/Lazarus
Soma dois Valores e exibe o resultado
Programa que realiza o reajuste salarial de acordo com o cargo
dizer se o aluno passou ou nao
vendas de uma empresa em matriz
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Atualizando o Fedora 42 para 43
Como saber se o seu e-mail já teve a senha vazada?
Como descobrir se a sua senha já foi vazada na internet?
Instalação dualboot Windows 11 e Debian 13 (0)
Programa fora de escala na tela do pc (33)
Eu queria adicionar a incon do wifi e deixa transparente no fluxbox no... (0)









