灵鹊做题网(pascal简单题目明明的随机数
来源：学生作业帮 编辑：灵鹊做题网作业帮 分类：综合作业 时间：2024/05/06 22:10:09
(pascal简单题目明明的随机数
描述 明明想在学校中请一些同学一起做一项问卷调查,为了实验的客观性,他先用计算机生成了N个1到1000之间的随机整数（N≤100）,对于其中重复的数字,只保留一个,把其余相同的数去掉,不同的数对应着不同的学生的学号.然后再把这些数从小到大排序,按照排好的顺序去找同学做调查.请你协助明明完成“去重”与“排序”的工作.输入格式 输入有2行,第1行为1个正整数,表示所生成的随机数的个数：N第2行有N个用空格隔开的正整数,为所产生的随机数.输出格式 输出也是2行,第1行为1个正整数M,表示不相同的随机数的个数.第2行为M个用空格隔开的正整数,为从小到大排好序的不相同的随机数.输入文件 直接输入即可 输出文件 直接输出即可 注意,不要在最后输出空行或空格!样例输入 1020 40 32 67 40 20 89 300 400 15 样例输出 815 20 32 40 67 89 300 400 pascal语言要求：在读入数组的时候边去重边排序我是初学者,别弄那些复杂的算法只要弄成上面的这种就行
描述 明明想在学校中请一些同学一起做一项问卷调查,为了实验的客观性,他先用计算机生成了N个1到1000之间的随机整数（N≤100）,对于其中重复的数字,只保留一个,把其余相同的数去掉,不同的数对应着不同的学生的学号.然后再把这些数从小到大排序,按照排好的顺序去找同学做调查.请你协助明明完成“去重”与“排序”的工作.输入格式 输入有2行,第1行为1个正整数,表示所生成的随机数的个数：N第2行有N个用空格隔开的正整数,为所产生的随机数.输出格式 输出也是2行,第1行为1个正整数M,表示不相同的随机数的个数.第2行为M个用空格隔开的正整数,为从小到大排好序的不相同的随机数.输入文件 直接输入即可 输出文件 直接输出即可 注意,不要在最后输出空行或空格!样例输入 1020 40 32 67 40 20 89 300 400 15 样例输出 815 20 32 40 67 89 300 400 pascal语言要求：在读入数组的时候边去重边排序我是初学者,别弄那些复杂的算法只要弄成上面的这种就行
用桶排序就行了.
核心代码：
for i:=1 to 100 do
f[a[i]]:=true;
for i:=1 to 1000 do
if a[i] then write(i,' ');
a数组存储数据,f数组是1到1000的布尔数组,用于去重和排序.
核心代码：
for i:=1 to 100 do
f[a[i]]:=true;
for i:=1 to 1000 do
if a[i] then write(i,' ');
a数组存储数据,f数组是1到1000的布尔数组,用于去重和排序.