有N个无序的数存放在A数组中，请将后面相同的数删成只剩下一个，并输出经过删除后的数列。pascal数组pascal数组

Question

有N个无序的数存放在A数组中，请将后面相同的数删成只剩下一个，并输出经过 删除后的数列。pascal数组
pascal数组

Answer 1

var s:array[1..100] of integer; i,j,n:integer;beginreadln(n);for i:=1 to n do read(s[i]);for i:=1 to n-1 dofor j:=i+1 to n doif a[i]=a[j] then a[j]=-1;for i:=1 to n doif a[i]-1 then writeln(a[i])...