calculo de porcentagem em vetores

Publicado por NewLinuxer 12/12/2005

[ Hits: 11.540 ]

Download exerc07.pas




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

  



Esconder código-fonte

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.

Scripts recomendados

Executar comando do DOS.

controle de notas de um aluno com registro e array

média dos numeros informados em posiçoes pares em um vetor

Cadastro de Passagens Aéreas

Calculadora de cargas


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts