calculo de porcentagem em vetores

Publicado por NewLinuxer 12/12/2005

[ Hits: 11.549 ]

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

palindroma

SpaceAllience_Animation

Cáculo de Fatorial, utilizando-se de Repeat - Until

controle de notas de um aluno com registro e array

soma de números pares


  

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