Algoritmo

Numa corrida há 10 corredores, de número de inscrição de 1 a 10. Faça um

algoritmo que leia os valores do número do corredor e o seu respectivo

tempo na corrida. Além disso, o programa deve imprimir a qualificação e o

tempo de corrida, do primeiro ao décimo colocado, identificando o número

de inscrição do corredor referente àquela colocação. Suponha que não há

tempos iguais.

portugol

algoritmo "Questão 2 do Trabalho 1"

// Função : Corrida

// Autor : Lucas Emanuel e Gabriel Gomes

// Data : 29/11/2014

// Seção de Declarações

var

p:vetor[1..10]de inteiro

num,tempo:vetor[1..10]de real

i,i2:INTEIRO

aux:real

inicio

// Seção de Comandos

para i de 1 ate 10 faca

escreval("digite o numero do corredor, de 1 ate 10:")

leia(num[i])

escreval("digite o valor do tempo do",num[i],"° corredor")

leia(tempo[i])

fimpara

para i de 1 ate 9 faca

para i2 de 1 ate 10 faca

se(tempo[i]<=tempo[i2])entao

aux<-tempo[i2]

tempo[i2]<-tempo[i]

tempo[i]<-aux

aux<-num[i]

num[i]<-num[i]

num[i]<-aux

fimse

fimpara

fimpara

escreval("os tempos na ordem crescente")

para i de 1 ate 10 faca

escreval("os tempos",tempo[i]," e o numero foi", num[i])

fimpara

fimalgoritmo