扫描一遍就可以了：ex:=false;for j:=1 to 4 do if a[j]=i then ex:=true; 上面的程序先假设不存在（ex变量的结果为true表示存在），然后循环判断数组的每一个元素与i是否相等，相等就设置存在标志。
