Algoritmo

Escreva um algoritmo que leia um vetor de 15 elementos inteiros. Ordene o vetor em ordem decrescente e exiba-o.

algoritmo "Ordenação de Vetor"

var

v: vetor [1..15] de inteiro

i, j, aux: inteiro

inicio

para i de 1 ate 15 passo 1 faca

leia(v[i])

fimpara

para j de 1 ate 14 passo 1 faca

para i de 1 ate 14 passo 1 faca

se (v[i] < v[i+1]) entao

aux <- v[i]

v[i] <- v[i+1]

v[i+1] <- aux

fimse

fimpara

fimpara

para i de 1 ate 15 faca

escreva (v[i])

fimpara

fimalgoritmo

Escreva um algoritmo que leia um vetor com 10 posições de números inteiros e verifique se um determinado valor, também digitado pelo usuário, está no vetor. Se estiver, informe a posição desse elemento no vetor. Caso o elemento não esteja no vetor, apresente uma mensagem informando tal situação.

algoritmo "Buscar elemento"

var

v: vetor [1..10] de inteiro

i, x: inteiro

achou: logico

inicio

achou<-falso

para i de 1 ate 10 faca

leia (v[i])

fimpara

leia(x)

para i de 1 ate 10 faca

se (x=v[i]) entao

escreval("O valor ", x, " está no vetor na posição", i, ".")

achou <- verdadeiro

fimse

fimpara

se (achou=falso) entao

escreval ("O valor ", x, " não está no vetor.")

fimse

fimalgoritmo

Escreva um algoritmo que leia um vetor de 20 posições e mostre-o. Em seguida, troque o primeiro elemento com o último, o segundo com o penúltimo, o terceiro com o antepenúltimo e assim sucessivamente. Mostre o novo vetor depois da troca.

algoritmo "Troca