calcular o percentual de pessoas que sao maiores de idade
neste script o objetivo é calcular quantos porcentos, de um vetor com dez idades, sao maiores de idade.
Descrição
neste script o objetivo é calcular quantos porcentos, de um vetor com dez idades, sao maiores de idade.
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.