Question

Elabore um algoritmo que leia o NOME e o PESO de 10 pessoas que participam de um grupo de auto-ajuda, determine e escreva o MAIOR PESO do grupo e NOME da pessoa que tem o maior peso. Obs.: Considere a premissa que não teremos pesos iguais.

Answer 1

var
nome, nome_peso: caracter
peso, maior_peso: real
cont: inteiro
inicio
repita
Escreval("Escreva o nome do participante: ")
Leia (nome)
Escreval("Escreva o peso do participante: ")
Leia (peso)
cont := cont + 1
se peso > maior_peso entao
   maior_peso := peso
   nome_peso := nome
fimse
ate cont = 10
Escreval("O maior peso é de: ", nome_peso, " com o peso de: ", maior_peso)
fimalgoritmo