Eliminar aleatoriamente en lista circular
procedure eliminar_aleatorio()
{
p ← primero();
num = srand();
i ← 0;
while(i<num)
{
p ← proximo(p);
i++;
}
while(primero() <> ultimo())
{
num ← srand();
num ← srand();
i ← 0;
while(i<num)
{
p ← proximo(p);
i++;
}
eliminar(x,p);
}
}