Buscar( A, k);
para i<- 1 ate fim faca
A*[A*fim] é igual a k
Se k é igual a fim
A[i] = k
retorna K
fim se
fim para
fim algoritmo
Adicionar(A,k)
para i<-1 ate fim faca
A*[Afim] é igual a k
Se Afim= A[i]
Afim =1
Senao Afim = Afim+1
retorna Afim
fim Se
fim para
fim Algoritmo
Remover(A,k)
para i<-1 ate inicio-1
k é igual A*[Ainicio]
Se Ainicio ==A[i]
Ainicio==k
retorna k
Senao A.inicio = Ainicio+1
fim Se
fim para
fim Algoritimo