在做一道题目时，我根据题目写了算法，但我不会写源程序，希望大家能帮忙，还希望大家能指出算法的不足之处

题目：

在一个给定的线性表中删除元素值在x到y之间的所有元素，要求以较高的效率实现

算法思想：先将向量A中所有在x到y之间的元素置成一个特殊的值0，并不立即删除它们，然后从最后向前依次扫描，删除为0的元素，移动后面的元素。

void del(A,n,x,y)
int A[];
int n,x,y;
{
int i,k;
for (i=1; i<=n; i++)
if (A[i]>=x && A[i]<=y) A[i]=0;
for (i=n; i>=1; i--)
if (A[i]=0)
{ for (k=i; k<=(n-1); k++) A[k] = A[k+1]; n--;
}
}

请大家帮忙写出源程序