Search the Community

Este programa irá: | Escrever 10 números aleatórios em um vetor | Ordenar um vetor em ordem crescente | Trocar um valor por outro, caso tenha | inserir um valor na ultima posição | //fpc 3.0.0 program vetor; var vet:array[0..9] of integer; vet_aux:array[0..9] of integer; i, j, k, aux_crescente, x, y, ultima:integer; // Procedimento que irá mostrar o vetor na tela procedure mostrar ( vetor : array of integer) ; var i : integer; begin for i := 0 to 9 do write(vetor[i], ' '); end; // Fim do procedimento