明明的随机数

本题为NOIP2006普及组首题,任务是对一系列随机数进行去重及排序处理。具体步骤包括:读取指定数量的随机数,去除重复项并按升序排列,最后输出不重复的数字及其数量。

摘要生成于 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

说明

NOIP 2006 普及组 第一题


var
 i,j,k,l,n,m:longint;
 a:array[0..1000000,1..2]of longint;
 procedure dfs(l,r:longint);//快排排序
  var
   i,j,k,m:longint;
  begin
   if l>=r then exit;
   i:=l;j:=r;m:=a[l+random(r-l+1),1];
   repeat
    while (a[i,1]<m) do inc(i);
    while (a[j,1]>m) do dec(j);
    if i<=j then begin
                  k:=a[i,1];a[i,1]:=a[j,1];a[j,1]:=k;
                  k:=a[i,2];a[i,2]:=a[j,2];a[j,2]:=k;
                  inc(i);dec(j);
                 end;
   until i>j;
  dfs(l,j);
  dfs(i,r);
  end;
begin
 read(n);
 for i:=1 to n do begin read(a[i,1]); a[i,2]:=1;end;//输入
 for i:=1 to n do
  for j:=i+1 to n do
   if a[i,1]=a[j,1] then a[j,2]:=0;//标记去重
  randomize;
  dfs(1,n);
  for i:=1 to n do
  if a[i,2]=1 then inc(l);
  writeln(l);
  for i:=1 to n do
   if a[i,2]=1 then write(a[i,1],' ');
end.

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值