Question

faça um programa que receba a idade de 10 pessoas e informe a quantidade de pessoas com idade igual ou superior a 18

Answer 1

var
i, idade, total : integer
Begin     
   for i:=1 to 10 do     
   begin         
      writeln ('Informe a idade: ');         
      read (idade;)         
      if (idade>=18) then         
      total:=total + 1;     
   end;         
      write ('A soma das idades maiores de 18 anos é ', total);
end