Pascal/Delphi Idade dos maiores ou iguais a 18 anos

[Charles Diogo123]

faça um algoritmo que receba a idade de 5 pessoas e mostre na tela a soma das idades dos maiores ou iguais a 18 anos

 

não estou conseguindo terminar pois na hora que digito os dados no programa os resultados não batem com a resposta, podem me dizer o estou fazendo de errado

(Fiz o algoritmo no Pascalzim)

 

Program Pzim ;
Var
i, idade, total: integer;

Begin
  For i:=1 to 5 do
  begin
     Writeln('Digite a idade:');
     read(idade);
     if (idade>=18) then
     total:=total + 1
  end;
     Writeln('A soma das idades maiores de 18 anos é ', total);
 
  if (idade=18) then
     total:=total - 1;
     Writeln('A soma das idades iguais a 18 anos é ', total);
End.

 

[Simon Viegas]

1#

Ao postar um código, favor utilizar a tag CODE. Antes de colar, clique no botão <>.

 

 

 

2#
Uma dica importante é que sempre deve manter o seu código indentado. Exemplo:

program Pzim;
var
  i, idade, total: integer;
begin
for i:=1 to 5 do
  begin
  writeln('Digite a idade:');
  {read(idade);} //não use read(), use somente readln()
  readln(idade);
  if (idade>=18) then
    total:=total + 1
  end;
writeln('A soma das idades maiores de 18 anos é ', total);
if (idade=18) then
  total:=total - 1;
writeln('A soma das idades iguais a 18 anos é ', total);
end.

 

 

 

3#

Vamos analisar a estrutura do código:

No primeiro if você está verificando se idade é maior ou igual a 18, ok. Mas ao constatar isso, está somando 1 ao total. Mas veja, o enunciado não quer saber a "quantidade de pessoas maiores de idade", mas sim "somas das idades".

 

Oras! onde está a idade que foi digitada? na própria variável idade, logo, seria:

total:=total + idade;

 

 

 

4#

No segundo if está verificando se a idade é igual a 18. Só que em nenhum momento foi solicitado essa verificação, ou seja, apenas tire isso do código.

 

 

 

***

 

No aguardo.