var a: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 if a0 then for j:=1 to a do write(i,' ');
writeln;
for i:=1 to 30 do if a0 then write(i,' ');
writeln;end.代码我...
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...