【基础】去除重复数字 Pascal给你N个数(n<=100),每个数都在(0~1000)之间,其中由很多重复的数字,请将重复的数字只保留一个,并将剩下的数由小到大排序并输出.输入输入有2行,第1行为1个

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/16 19:59:08

【基础】去除重复数字 Pascal给你N个数(n<=100),每个数都在(0~1000)之间,其中由很多重复的数字,请将重复的数字只保留一个,并将剩下的数由小到大排序并输出.输入输入有2行,第1行为1个
【基础】去除重复数字 Pascal
给你N个数(n<=100),每个数都在(0~1000)之间,其中由很多重复的数字,请将重复的数字只保留一个,并将剩下的数由小到大排序并输出.
输入
输入有2行,第1行为1个正整数,表示数的个数:N 第2行有N个用空格隔开的整数.
输出
输出也是2行,第1行为1个正整数M,表示不相同数的个数.第2行为M个用空格隔开的整数,为从小到大排好序的不相同的数.
样例输入
10 20 40 32 67 40 20 89 300 400 15
样例输出
8 15 20 32 40 67 89 300 400

【基础】去除重复数字 Pascal给你N个数(n<=100),每个数都在(0~1000)之间,其中由很多重复的数字,请将重复的数字只保留一个,并将剩下的数由小到大排序并输出.输入输入有2行,第1行为1个
program ygb;
var a[0..1000] of integer; i,n,x:integer;
begin
for i:=0 to 1000 do a[i]:=-1;
read(n);
for i:=1 to n do
begin
read(x);
a[x]:=0;
end;
for i:=0 to 1000 do
if a[i]-1 then write(i,' ');
end.
程序不长,能看明白吧.
因为数字范围不大,所以定义了0~1000的数组,先全部赋值为-1表示该项没有数,读数字的时候把对应的数组单元修改为0,表示这个单元输入数字了,最后输出为0的部分.
巧妙的解决了两个问题,一是去处重复,二是排序,都不需要编写具体的代码,自然就是满足要求的结果.

【基础】去除重复数字 Pascal给你N个数(n<=100),每个数都在(0~1000)之间,其中由很多重复的数字,请将重复的数字只保留一个,并将剩下的数由小到大排序并输出.输入输入有2行,第1行为1个 pascal数字排列问题列出所有数字从1到n的自然数排列,眼球所产生任意序列中不允许出现重复的数字输入:n(n 数字排列问题(pascal语言)列出所有从数字1到数字n的连续自然数的排列,要求所产生的任意数字序列中不允许出现重复的数字.1 pascal打印数字图形读入一个整数n(n 数字平方和 pascal给出一个自然数N(1 数字排列问题(pascal)列出所有从数字1到数字n的连续自然数的排列,要求所产生的任一数字序列中不允许出现重复的数字(1n do begin a[l]:=1; l:=l-1;a[l]:=a[l]+1; end; end;end;2:close(f2);;end.答案是对的,但1~8 pascal题目现在给你N个0~9的数字并排成一列,同时还给出了一个取数长度L.规定先从第一个数字开始从左往右连续取L个数字,拼成一个产度为L位(最高位为0的L-1位数除外)的数,然后从第2个数字 [数组基础]元素插入有序数组 pascal给你一个整数n和一个数列,这个数列保证从小到大排列,现要求将这个整数n插入到数列中,使新的数列仍然从小到大排列输入第一行一个整数n :等待插入的数 pascal 中 log(n) pascal 输入n(1 pascal 输入n(1 有重复元素的排列问题pascal pascal 入正整数n(n 由1..9这九个数字组成的九位数(无重复数字)能被11整除,求最大,最小值要free pascal的,别的不要! pascal:明明的随机数明明想在学校中请一些同学一起做一项问卷调查,为了实验的客观性,他先用计算机生成了N个1到1000之间的随机整数(N≤100),对于其中重复的数字,只保留一个,把其余相同的 (pascal简单题目明明的随机数描述 明明想在学校中请一些同学一起做一项问卷调查,为了实验的客观性,他先用计算机生成了N个1到1000之间的随机整数(N≤100),对于其中重复的数字,只保留一个 pascal 给出一个序列 求出数列中相同数字出现的 次数最多的数字和其出现次数 (n pascal 计算在1 到n 的所有整数中,数字x(0 ≤ x ≤ 9)共出现了多少次?pascal