Pascal数的统计数的统计【问题描述】在一个有限的正整数序列中,有些数会多次重复出现在这个序列中.如序列:3,1,2,1,5,1,2.其中1就出现3次,2出现2次,3出现1次,5出现1次.任务:对于给定的正整数
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/15 02:23:27
![Pascal数的统计数的统计【问题描述】在一个有限的正整数序列中,有些数会多次重复出现在这个序列中.如序列:3,1,2,1,5,1,2.其中1就出现3次,2出现2次,3出现1次,5出现1次.任务:对于给定的正整数](/uploads/image/z/3721026-66-6.jpg?t=Pascal%E6%95%B0%E7%9A%84%E7%BB%9F%E8%AE%A1%E6%95%B0%E7%9A%84%E7%BB%9F%E8%AE%A1%E3%80%90%E9%97%AE%E9%A2%98%E6%8F%8F%E8%BF%B0%E3%80%91%E5%9C%A8%E4%B8%80%E4%B8%AA%E6%9C%89%E9%99%90%E7%9A%84%E6%AD%A3%E6%95%B4%E6%95%B0%E5%BA%8F%E5%88%97%E4%B8%AD%2C%E6%9C%89%E4%BA%9B%E6%95%B0%E4%BC%9A%E5%A4%9A%E6%AC%A1%E9%87%8D%E5%A4%8D%E5%87%BA%E7%8E%B0%E5%9C%A8%E8%BF%99%E4%B8%AA%E5%BA%8F%E5%88%97%E4%B8%AD.%E5%A6%82%E5%BA%8F%E5%88%97%EF%BC%9A3%2C1%2C2%2C1%2C5%2C1%2C2.%E5%85%B6%E4%B8%AD1%E5%B0%B1%E5%87%BA%E7%8E%B03%E6%AC%A1%2C2%E5%87%BA%E7%8E%B02%E6%AC%A1%2C3%E5%87%BA%E7%8E%B01%E6%AC%A1%2C5%E5%87%BA%E7%8E%B01%E6%AC%A1.%E4%BB%BB%E5%8A%A1%EF%BC%9A%E5%AF%B9%E4%BA%8E%E7%BB%99%E5%AE%9A%E7%9A%84%E6%AD%A3%E6%95%B4%E6%95%B0)
Pascal数的统计数的统计【问题描述】在一个有限的正整数序列中,有些数会多次重复出现在这个序列中.如序列:3,1,2,1,5,1,2.其中1就出现3次,2出现2次,3出现1次,5出现1次.任务:对于给定的正整数
Pascal数的统计
数的统计
【问题描述】
在一个有限的正整数序列中,有些数会多次重复出现在这个序列中.
如序列:3,1,2,1,5,1,2.其中1就出现3次,2出现2次,3出现1次,5出现1次.
任务:对于给定的正整数序列,从小到大依次输出序列中出现的数及出现的次数.
【输入】
第一行正整数n,表示给定序列中正整数的个数.
第二行是n个用空格隔开的正整数x,代表给定的序列.
【输出】
若干行,每行两个用一个空格隔开的数,第一个是数列中出现的数,第二个是该数在序列中出现的次数.
【输入输出样例】
【数据规模和约定】
20%的数据:n<=1000;0<x<=1000,000.
50%的数据:n<=1000;0<x<=2,000,000,000.
100%的数据:n<=50,000;0<x<=2,000,000,000.
数据设计说明:
20%的数据:n<=1000;0<x<=1000,000.直接统计即可
50%的数据:n<=1000;0<x<=2,000,000,000.简单的排序后统计
100%的数据:n<=50,000;0<x<=2,000,000,000.快速排序后统计
Pascal数的统计数的统计【问题描述】在一个有限的正整数序列中,有些数会多次重复出现在这个序列中.如序列:3,1,2,1,5,1,2.其中1就出现3次,2出现2次,3出现1次,5出现1次.任务:对于给定的正整数
var i,s,n:longint;
a:array[1..200000] of longint;
procedure s1(l,r:longint);
var t,mid,i,j:longint;
begin
i:=l;j:=r;
mid:=a[(i+j) div 2];
repeat
while a[i]mid do dec(j);
if ij;
if l