1樓：鐘闊
varq:array[0..1000000]of longint;
n,a,i,k:longint;
flag:boolean;
begin
readln(n);
fillchar(q,sizeof(q),0);
for i:=1 to n do begin
read(a);
flag:=true;
for k:=1 to q[0] do if q[k]=a then flag:=false;
if flag then begin
write(a,' ');
inc(q[0]);
q[q[0]]:=a;
end;
end;
end.
————————————————————————
const
maxn=1001;
varh:array[0..maxn-1,0..maxn-1]of longint;
a,i,j,k,n:longint;
flag:boolean;
begin
readln(n);
fillchar(h,sizeof(h),0);
for i:=1 to n do begin
read(a);
k:=a mod maxn;
flag:=true;
for j:=1 to h[k,0] do if h[k,j]=a then flag:=false;
if flag then begin
inc(h[k,0]);
h[k,h[k,0]]:=a;
write(a,' ');
end;
end;
end.
——————————————————————————
varf:array[-10000000..10000000]of boolean;
n,i,k,a:longint;
begin
readln(n);
fillchar(f,sizeof(f),true);
for i:=1 to n do begin
read(a);
if f[a] then begin
write(a,' ');
f[a]:=false;
end;
end;
end.
————————————————————————————
以上為解決問題的三種方法。
2樓：匿名使用者
是僅僅過濾掉重複值，順序是原來的樣子，還是重新排序？
3樓：臨崖策馬
function f_myfun(alist: tintegerdynarray): tintegerdynarray;
varv_i, v_j: integer;
v_len: integer;
v_resultlen: integer;
begin
v_len := length(alist);
v_resultlen := 0;
setlength(result, v_len);
for v_i := 0 to v_len - 1 dobegin
v_j := 0;
while (v_j < v_resultlen) and (alist[v_i] <> result[v_j]) do
inc(v_j);
if v_j >= v_resultlen thenbegin
result[v_resultlen] := alist[v_i];
inc(v_resultlen);
end;
end;
setlength(result, v_resultlen);
end;
c語言輸入一串數字然後求和，C語言 輸入一串數字然後求和
for i 0 buff i 0 i sum buff i 0 這句話是什麼意思？能解釋下嗎？大哥！回答者 shaocl112102 試用期 一級 2 5 09 30 把buff裡的字元逐個與字元 0 相減，哦，是他們的ascii碼相減，忘了0的ascii碼了，不過不管它是多少吧，反正1234567...
excel輸入一串數字後最後幾位都是000怎麼改
excel中數字超過11位的數值會以科學計數法表示。excel的數值精度為15位，超過15位的數字後的非0數字會自動變成0，且不可逆轉。以超過11位小於15位數字為例，預設顯示方式如下圖 更改方法，滑鼠右鍵單擊單元格，選中 設定單元格格式 在跳出的 設定單元格格式 中選中 數字 分頁下的 文字 分類...
為什麼在Excel中輸入一串數字,它總是將後四位改成
茗童邪魅 這是因為在excel中最多能識別15位的數字，超過15位的會顯示成數字0，所以如果想需要輸入15位以上的數字，可以將單元格格式修改為文字格式。1 演示使用的軟體為excel電子 軟體版本為office家庭和學生版2016。2 首先開啟excel電子 並輸入一串數字，可以看到當天數字超過15...