☆ 輸入檔案：random.in輸出檔案：random.out簡單對比
時間限制：1 s 記憶體限制：128 mb
【問題描述】
明明想在學校中請一些同學一起做一項問卷調查，為了實驗的客觀性，他先用計算機生成了 n 個 1 到 1000 之間的隨機整數（ n ≤ 100 ），對於其中重複的數字，只保留乙個，把其餘相同的數去掉，不同的數對應著不同的學生的學號。然後再把這些數從小到大排序，按 照 排好的順序去找同學做調查。請你協助明明完成「去重」與「排序」的工作。
【輸入格式】
輸入檔案 random.in 有 2 行，第 1 行為 1 個正整數，表示所生成的隨機數的個數：n
第 2 行有 n 個用空格隔開的正整數，為所產生的隨機數。
【輸出格式】
輸出檔案 random.out 也是 2 行，第 1 行為 1 個正整數 m ，表示不相同的隨機數的個數。第 2 行為 m 個用空格隔開的正整數，為從小到大排好序的不相同的隨機數。
【輸入輸出樣例】
輸入：
1020 40 32 67 40 20 89 300 400 15
輸出：8
15 20 32 40 67 89 300 400
記錄編號
149894
評測結果aa
aaaa
aaaa
題目名稱
[noip2006] 明明的隨機數
最終得分
100重新評測
使用者暱稱
vacationgod
是否通過
通過**語言
pascal
執行時間
0.001 s
提交時間
2015-02-26 21:54:20
記憶體使用
0.17 mib
ip顯示**純文字
program p74;varn,
i,j,
t,k:
longint;a
:array[1.
.100
]of longint
;begin
assign
(input
,'random.in'
);assign
(output
,'random.out'
);reset
(input
);rewrite
(output
);readln(n
);fori:=
1to n
doread(a
[i]);fori:=
1to n-1
dobegink:=
i;forj:=i
+1to n
doifa[
k]>a[
j]thenk:=
j;ifk
<>
i then
begint:=
a[k];
a[k]:=a[
i];a[
i]:=t;
end;
end;k:=
0;fori:=1
to n
doifa[
i]<>a[
i+1]
then
inc(k);
writeln(k
);fori:=
1to n
doifa[
i]<>a[
i+1]
then
write(a
[i],' '
);close
(input
);close
(output
);end
.
明明的隨機數
題目描述 description 明明想在學校中請一些同學一起做一項問卷調查，為了實驗的客觀性，他先用計算機生成了n個1到1000之間的隨機整數 n 100 對於其中重複的數字，只保留乙個，把其餘相同的數去掉，不同的數對應著不同的學生的學號。然後再把這些數從小到大排序，按照排好的順序去找同學做調查。...
明明的隨機數
題目描述 明明想在學校中請一些同學一起做一項問卷調查，為了實驗的客觀性，他先用計算機生成了n個1到1000之間的隨機整數 n 100 對於其中重複的數字，只保留乙個，把其餘相同的數去掉，不同的數對應著不同的學生的學號。然後再把這些數從小到大排序，按照排好的順序去找同學做調查。請你協助明明完成 去重 ...
明明的隨機數
明明想在學校中請一些同學一起做一項問卷調查，為了實驗的客觀性，他先用計算機生成了n個1到1000之間的隨機整數 n 100 對於其中重複的數字，只保留乙個，把其餘相同的數去掉，不同的數對應著不同的學生的學號。然後再把這些數從小到大排序，按照排好的順序去找同學做調查。請你協助明明完成 去重 與 排序 ...