calcular o percentual de pessoas que sao maiores de idade

Publicado por NewLinuxer 12/12/2005

[ Hits: 7.959 ]

Download exerc06.pas




neste script o objetivo é calcular quantos porcentos, de um vetor com dez idades, sao maiores de idade.

  



Esconder código-fonte

Program exercicio06;

uses crt;

Var
  idade          : array[1..10] of integer;
  contador, soma : integer;

Begin
  clrscr;

  Soma:= 0;

  For contador := 1 To 10 do
  Begin
    Write('Digite a ',contador:2,'§ idade: ');
    Readln (idade[contador]);

    if idade[contador] > 17 then
      Soma:= soma+1;
  end;

  writeln(soma*10, '% de pessoas sÆo maiores de idade');

  Readkey;

End.

Scripts recomendados

Primo

Crivo de Eratóstenes Simples em Ada 95

Tratar campos not null

Cauculadora em Pascal

Calculadora Básica


  

Comentários
[1] Comentário enviado por doradu em 09/02/2010 - 16:58h

bom programa, gosto de vc pq coloca o programa completo, q compila


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts