calculo de porcentagem em vetores

Publicado por NewLinuxer 12/12/2005

[ Hits: 11.570 ]

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

programa pra somar e tirar média

soma da diagonal principal de uma matriz

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

Números primos (usando arrays)

Array de números aleatórios não-repetidos de um intervalo em Pascal


  

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