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.

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

Calculadora de notas (Pascal)

Achar o maior e o menor valor inserido pelo usuario

Cronômetro feito no Lazarus(Delphi 7 para Linux)

soma de matrizes

Nenhum coment�rio foi encontrado.