trabalho

Algoritmo "TRABALHO"

Var
N: vetor [1..3] de caractere
id: vetor [1..3] de inteiro
P: vetor [1..3] de real
S: vetor [1..3] de caractere
comprimento: vetor [1..3] de inteiro
i,j: inteiro
maisvelho, posMv, posMp, posN, maiornome: inteiro
maispesado: real
Inicio
maispesado <- 0
maisvelho <- 1
para i <- 1 ate 3 faca
escreval ("Digite o nome: ")
leia(N[i])
comprimento[i]  <- compr(N[i])
maiornome <- comprimento [i]
fimpara
escreval("O maior nome tem: " ,maiornome, " caracteres.")
para i <- 1 ate 3 faca
escreval ("Digite a idade: ")
leia(id[i])
se maisvelho < id[i] entao
maisvelho <- id[i]
posMv <- i
fimse
fimpara
para i <- 1 ate 3 faca
escreval ("Digite o peso: ")
leia (P[i])
se maispesado < P[i] entao
maispesado <- P[i]
posMp <- i
fimse
fimpara
para i <- 1 ate 3 faca
escreval ("Digite o sexo: ")
leia(S[i])
fimpara
se posMv = posMp entao
escreval("A pessoa mais velha e mais pesada tem ",maisvelho, " anos e pesa ",maispesado, " Kg")
fimse

Fimalgoritmo