Program Pzim ;
{recebe 10 numeros inteiros e ordena de forma crescente}
var
vet:array[1..10] of integer;
aux,i,j:integer;
Begin
aux:=0;
for i:=1 to 10 do
begin
writeln('Preencha o vetor de 10 posições : ');
read(vet[i]);
end;
for i := 10 downto 2 do {faz o for com i de 10 até 2, decrementando, isto é 10, 9, 8, ...}
begin
for j := 1 to i-1 do {faz o for com j de 1 até a posição atual do i menos 1}
begin
if vet[j] > vet[j+1] then {se vet, na posição j, for maior que vet na posição j+1, faça}
begin
aux := vet[j]; {a var aux, recebe o valor de vet na posição j}
vet[j] := vet[j+1]; {vet na posição j, recebe o valor de vet na posição seguinte, que seria j + 1}
vet[j+1] := aux; {e vet na posição j mais 1, recebe o valor que está na var aux, que era o valor de vet na posição j}
end; {resumindo, se o valor na posição vet[j] for maior que}
end; {o valor na posição vet[j+1], ele faz a troca desses valores}
end; {a função desse programa é ordenar um vetor }
{seria o seguinte:}
{preencha um vetor de 10 posições ´com numeros inteiros}
{e depois ordene de forma crescente}
for i:=1 to 10 do
begin
writeln(vet[i]);
end;
end.
