大师作文网pascal统计数字题目
来源：学生作业帮 编辑：大师作文网作业帮 分类：综合作业 时间：2024/11/10 11:43:55
pascal统计数字题目
统计数字
【问题描述】科学实验室在一次实验时得到了n个自然数,每个数不超过100.现在需要统计这些自然数各自出现的次数,并按照从小到大的顺序输出统计结果.
统计数字
【问题描述】科学实验室在一次实验时得到了n个自然数,每个数不超过100.现在需要统计这些自然数各自出现的次数,并按照从小到大的顺序输出统计结果.
就是个计数 啊
差点忘了 0也是自然数
var a:array[0..101]of longint;
n,m,i:longint;
begin
readln(n);
for i:=1 to n do
begin
read(m);
inc(a[m]);
end;
for i:=0 to 100 do
if a[i]0 then
writeln(i,' ',a[i]);
end.
输入
6
5 4 3 2 1 5
输出
1 1
2 1
3 1
4 1
5 2
差点忘了 0也是自然数
var a:array[0..101]of longint;
n,m,i:longint;
begin
readln(n);
for i:=1 to n do
begin
read(m);
inc(a[m]);
end;
for i:=0 to 100 do
if a[i]0 then
writeln(i,' ',a[i]);
end.
输入
6
5 4 3 2 1 5
输出
1 1
2 1
3 1
4 1
5 2