产生20个1--30之间的随机数,按照从小到大的顺序排列输出.然后去除相同的随机数,再输出一次.pascal

来源：学生作业帮助网编辑：作业帮时间：2024/05/11 02:46:57

产生20个1--30之间的随机数,按照从小到大的顺序排列输出.然后去除相同的随机数,再输出一次.pascal
产生20个1--30之间的随机数,按照从小到大的顺序排列输出.然后去除相同的随机数,再输出一次.pascal

产生20个1--30之间的随机数,按照从小到大的顺序排列输出.然后去除相同的随机数,再输出一次.pascal
var a,b:array[1..30]of integer;
i,j:integer;
begin
randomize;
fillchar(a,sizeof(a),0);
for i:=1 to 20 do //随机产生数
inc(a[random(30)+1]);
for i:=1 to 30 do
begin
b[i]:=a[i];
while a[i]0 do //输出去除前的数
begin
write(i,' ');
dec(a[i]);
end;
end;
writeln;
for i:=1 to 30 do //输出去除后的数
if b[i]>0 then write(i,' ');
writeln;
end.

产生20个1--30之间的随机数,按照从小到大的顺序排列输出.然后去除相同的随机数,再输出一次.pascal 随机产生1-33之间的6个随机数（保证6个数字不重复）按照从大到小的顺序排列 java 从1－999之间产生100个不重复的随机数. MFC中产生X个随机数,使这些随机数之间的差值不超过1 如何产生1000个从1到1000之间的不重复的随机数,用C语言实现! Microsoft Fortran 中均匀随机数发生器子程序 RANDOM 产生10000个 0-1 之间的随机数Microsoft Fortran 中均匀随机数发生器子程序 RANDOM 产生10000个 0-1 之间的随机数还有就是Microsoft Fortran 中产生的随机 VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数 Mathematica如何产生均匀分布随机数给出20个1-100之间的均匀分布整数,怎么写程序啊如何用VB产生2~99之间的1次1个随机数,可以重复的,另外求如何用VB产生1~n之间的1次20个随机数用VB产生1~n之间的1次20个随机数,这个不能重复... c#随机数方法产生5个1~10（包括1和10）之间的整数. 如何用c#产生1000个0到1之间不同的随机数如何用c#产生1000个0到1之间不同的随机数 turbonbsp;cnbsp;2.0怎样产生4个0-9之间无重复的随机数?不要从别的地方复制 VC++中如何产生一个[-1,1]之间的随机数怎样使用JAVA产生1 6 之间的随机数? c++中怎么产生0-1之间的随机数利用随机数产生10个20至30之间的整数,输出数组的所有值,统计其中有多少个元素的值小于25（Java语言) Free Pascal怎样产生从1到1000的100个随机数rt