从1到n的整数中取出r个整数 pascal
答案:1 悬赏:40 手机版
解决时间 2021-11-23 00:47
- 提问者网友：姑娘长的好罪过
- 2021-11-22 00:41
从1到n的整数中取出r个整数 pascal
最佳答案
- 五星知识达人网友：何以畏孤独
- 2021-11-22 01:15
var a:array[1..1000]of integer;
n,i,r,j:integer;
begin
readln(n,r);
for i:=1 to n do a[i]:=i;
randomize;
for i:=1 to r do
begin
j:=random(n)+1;
write(a[j]:5);
a[j]:=a[n];
dec(n);
end;
writeln;
end.
n,i,r,j:integer;
begin
readln(n,r);
for i:=1 to n do a[i]:=i;
randomize;
for i:=1 to r do
begin
j:=random(n)+1;
write(a[j]:5);
a[j]:=a[n];
dec(n);
end;
writeln;
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯