数组a中存放10个由小到大排列的数，现从键盘输入一个数x，要求删除a数组中与其相同的数，并将后续的数依次前移，最后输出剩余的数

这种题怎么编程呢好像答案有好几种。。。。能有简单易懂的 吗？？？

n=ascan(a,Key)
if n>0
adel(a,n)
endif