pascal明明的随机数

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/18 09:10:06

pascal明明的随机数
【问题描述】
明明想在学校中请一些同学一起做一项问卷调查，为了实验的客观性，他先用计算机生成了N个1到1000之间的随机整数（N≤100），对于其中重复的数字，只保留一个，把其余相同的数去掉，不同的数对应着不同的学生的学号。然后再把这些数从小到大排序，按照排好的顺序去找同学做调查。请你协助明明完成“去重”与“排序”的工作。
【输入文件】
输入文件random.in 有2行，第1行为1个正整数，表示所生成的随机数的个数：
N
第2行有N个用空格隔开的正整数，为所产生的随机数。
【输出文件】
输出文件random.out 也是2行，第1行为1个正整数M，表示不相同的随机数的个数。第2行为M个用空格隔开的正整数，为从小到大排好序的不相同的随机数。
【输入样例】
10
20 40 32 67 40 20 89 300 400 15
【输出样例】
8
15 20 32 40 67 89 300 400

var a:array[1..100] of integer;
b:array[1..1000] of integer;
s,i,n:integer;
begin
assign(input,'random.in'); reset(input);
assign(output,'random.out'); rewrite(output);
readln(n);
for i:=1 to n do read(a[i]);
readln;
for i:=1 to n do b[a[i]]:=1;
s:=0;
for i:=1 to 1000 do if b[i]=1 then inc(s);
writeln(s);
for i:=1 to 1000 do if b[i]=1 then write(i,' ');
writeln;
close(input);
close(output);
end.
这是完整的，文件读入都有了。你把它复制进一个命名为random.pas的文件中就可以交了哦

pascal:明明的随机数 (pascal简单题目明明的随机数 pascal随机数 Pascal 中 random随机数产生器的用法?求详细用法. pascal中如何产生随机数 free pascal怎样产生随机数 Free Pascal怎样产生从1到1000的100个随机数 pascal 让电脑产生两个随机数,并计算他们的最大公约数和最小公倍数! 用随机函数random产生100到1000的随机数,用pascal语言,语句怎么写? pascal 让电脑产生10个随机数,算出它们的平均数,从小到大排列产生20个1--30之间的随机数,按照从小到大的顺序排列输出.然后去除相同的随机数,再输出一次.pascal Pascal 也分 Turbo Pascal 和 Free Pascal 的