pascal 跪求！！！让系统随机产生10个两位整数,输出这些数,重复的只输出一遍

显示全部楼层 · 2011-11-20 12:29:22

没那么复杂，只要设一个“开关变量”即可，把后项与前项相同的元素值设为0，最后元素值为0的不打印就行，无需排序。program Project1;type sz=array[1..10]of integer;var a:sz;
i,j:integer;begin randomize; for i:=1 to 10 dobegina:=10+random(90);write(a,' ');end;writeln;write(a[1],' '); for i:=2 to 10 do begin for j:=1 to i-1 do if a=a...

千问 · 2011-11-20 12:29:22

var f:array[10..99] of boolean; a,i:integer;beginfor i:=10 to 99 do f:=false;//初始化，10~99都没出现过for i:=1 to 10 do
begin
a:=10+random(89);
write...

千问 · 2011-11-20 12:29:22

var a:array[10..99] of boolean;
i,J:integer;begin
randomize;
fillchar(a,sizeof(a),FALSE);
for j:=1 to 10 do
begin
i:=random(91)+1...