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

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/23 15:47:24

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 编写程序,产生10 个随机数,然后按产生顺序相反的次序输出这些随机数 Java编写程序,产生10个随机数,然后按产生顺序相反的次序输出这些随机数. VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数 pascal 让电脑产生10个随机数,算出它们的平均数,从小到大排列 c语言：一个100-200之间的随机数a,然后生成a个2-1000的随机数,然后将其中的素数8个一行输出 js怎么输出30-50之间的随机数利用随机数产生10个20至30之间的整数,输出数组的所有值,统计其中有多少个元素的值小于25（Java语言) c++,首先定义了一个20位全为0的数组,然后想要输出带有相同随机数的20位数组,随机数的范围在1-10之间用MATLAB提供的rand函数生成10个符合均匀分布的随机数,然后各个随机数与0比较,大于零输出1,小于零输出0. C语言.随机产生20个1到50之间的正整数放入数组A中,输出这组随机数.然后,选出其中的素数放入数组B中编制子过程,通过调用子过程：⑴产生30个1～100之间的随机数；⑵统计并输出其中奇数和偶数的个数.