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

• Download exerc07.pas
• Enviar nova versão

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.

SpaceAllience_Animation

Calculadora utilizando until e case

Calculo do Fatorial Utilizando-se de for

Cadastro de Passagens Aéreas

Executar comando do DOS.

Nenhum comentário foi encontrado.