calculo de porcentagem em vetores
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
Descrição
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
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.