Question

me ajudem por favor preciso entregar hoje
no visualg
Escrever um algoritmo que lê um vetor A de tamanho 15 e o escreve. Ordene a seguir os elementos de A em ordem crescente e escreva novamente A.

Answer 1

Algoritmo "semnome"

Var

A: vetor [1..15] de inteiro

i,y,b,c,d: inteiro

Inicio

d <- 0

para i <- 1 ate 15 faca

escreval("Informe o valor para posição " ,i)

leia(A[i])

fimpara

escreval("Vetor sem ordenacao")

para i <- 1 ate 15 faca

escreva("[",A[i], "]")

fimpara

escreval("   ")

REPITA

para i <- 1 ate 14 faca

 SE (A[i] > A[i+1]) ENTÃO

 b <- A[i+1]

 A[i+1] <- A[i]

 A[i] <- b

 fimse

fimpara

d <- d + 1

ATÉ d = 15

escreval("Organizado")

para i <- 1 ate 15 faca

escreva("[",A[i], "]")

fimpara

Fimalgoritmo