pascal 去除相邻而且重复随机数要怎么办?求一个思路.比如,上一个随机数是3,如果下一个数也是3那么就把第二个3舍去,再重新取,直到取满25个数,然后输出.附上我的程序.还不过没有写上去重复

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/12 14:47:05

pascal 去除相邻而且重复随机数要怎么办?求一个思路.比如,上一个随机数是3,如果下一个数也是3那么就把第二个3舍去,再重新取,直到取满25个数,然后输出.附上我的程序.还不过没有写上去重复
pascal 去除相邻而且重复随机数要怎么办?求一个思路.
比如,上一个随机数是3,如果下一个数也是3那么就把第二个3舍去,再重新取,直到取满25个数,然后输出.
附上我的程序.还不过没有写上去重复的部分.不知道写 囧

pascal 去除相邻而且重复随机数要怎么办?求一个思路.比如,上一个随机数是3,如果下一个数也是3那么就把第二个3舍去,再重新取,直到取满25个数,然后输出.附上我的程序.还不过没有写上去重复
把后面重复的数字改为0,在输出时把不等于0的数输出即可!
去重程序:
var
a:array[1..200]of longint;
i,n,b,m:longintr;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for b:=i+1 to n do
begin
if a[i]=a[b] then a[b]:=0;
end;
m:=0;
for i:=1 to n do
begin
if a[i]0 then inc(m);
end;
writeln(m);
for i:=1 to n do
if a[i]0 then write(a[i],' ');
end.