明明的随机数

最新推荐文章于 2021-11-03 22:39:04 发布

原创最新推荐文章于 2021-11-03 22:39:04 发布 · 447 阅读

0 ·

CC 4.0 BY-SA版权

洛谷试炼场普及组专栏收录该内容

44 篇文章

订阅专栏

该博客讲述了如何帮助明明处理一份包含重复随机整数的列表，以实现去重和排序。明明生成了1到1000之间的随机整数，然后通过编程方法删除重复项并进行升序排列。博客提供了输入输出格式以及一个简单的处理流程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

题目描述
明明想在学校中请一些同学一起做一项问卷调查，为了实验的客观性，他先用计算机生成了N个1到1000之间的随机整数（N≤100），对于其中重复的数字，只保留一个，把其余相同的数去掉，不同的数对应着不同的学生的学号。然后再把这些数从小到大排序，按照排好的顺序去找同学做调查。请你协助明明完成“去重”与“排序”的工作。

输入输出格式
输入格式：
输入有2行，第1行为1个正整数，表示所生成的随机数的个数：N 第2行有N个用空格隔开的正整数，为所产生的随机数。
输出格式：
输出也是2行，第1行为1个正整数M，表示不相同的随机数的个数。第2行为M个用空格隔开的正整数，为从小到大排好序的不相同的随机数。

输入输出样例
输入样例#1：
10
20 40 32 67 40 20 89 300 400 15
输出样例#1：
8
15 20 32 40 67 89 300 400
说明
其实就是先排除相同的数，再去排序。
程序如下：

var
 a:array[1..1000]of boolean;
 i,s,n,m:integer;
begin
  readln(n);
  for i:=1 to n do
  begin
    read(m);
    a[m]:=true;
  end;
  for i:=1 to 1000 do
    if a[i] then inc(s);
  writeln(s);
  for i:=1 to 1000 do
    if (a[i])and(m>s) then begin write(i,' '); inc(m); end
      else if (a[i])and(m=s) then write(i);
end.