Fundamento da computação

1- Construir um programa que leia o nome, peso e o sexo de um conjunto de várias pessoas. O usuário irá informar a quantidade exata de pessoas. Calcular e escrever:
Menor peso do grupo de pessoas.
Maior peso dos homens.

Program Exercicio01 ; Var X, QTDE: Integer; Sexo: Char; Nome: String; Peso, MaiorPeso, MenorPeso: Real; Begin X:= 1; MaiorPeso:= 0; MenorPeso:= 99999; Writeln ('Informe a quantidade de pessoas:'); Readln (QTDE); While (X <= QTDE) do Begin Writeln ('Informe o nome:'); Readln (Nome); Writeln ('Informe o peso:'); Readln (Peso); Writeln ('Informe o sexo [f,m]:'); Readln (Sexo); If (Peso < MenorPeso) then MenorPeso:= Peso; If (Sexo = 'm') and (Peso > MaiorPeso) then MaiorPeso:= Peso; X:= X + 1; End; Writeln('O menor peso é: ',MenorPeso:0:2); Writeln('O maior peso entre os homens é: ',MaiorPeso:0:2); End.

2 - Considere as seguintes faixas etárias: Criança (de 0 a 10 anos), Adolescente
(de 11 a 16 anos), Jovem ( de 17 a 26 anos) e Adulto ( acima de 27 anos).
Construa um programa que leia o nome e a idade de 10 pessoas. Depois informe a qual faixa etária ela pertence.

Program Exercicio02 ; Var X, Idade: Integer; Nome: String; Begin X:=1; While (X <= 10) do Begin Writeln ('Informe o nome:'); Readln (Nome); Writeln ('Informe a idade:'); Readln (Idade); If (Idade >= 0) and (Idade <= 10) then Writeln (Nome,' é criança.') Else If (Idade >= 11) and (Idade <=16) then Writeln (Nome,' é adolescente.') Else If (Idade >= 17) and (Idade <= 26) then Writeln (Nome,' é jovem.') Else Writeln (Nome,' é adulto(a).'); X:= X + 1; End;