用Free passcal解决!高手来啊~~我是新手啦!

来源:百度知道 编辑:UC知道 时间:2024/06/21 19:25:44
明明的随机数
现有20个 1~1000 之间的随机整数,对于其中重复的数字,保留1个,把其余相同的数去掉,然后再把这些数从小到大排序。最后将已派的数输出!
(冒泡排序) 注:只要过程!
例:
program p11(input,output);
var
.........
求求啊!! 不正确不给分啊!
要用begin end
连接清楚~~ 不要搞到我看不懂a
主要问题的最后一句改为 最后将已排好的数输出!

明明的随机数
现有20个 1~1000 之间的随机整数,对于其中重复的数字,保留1个,把其余相同的数去掉,然后再把这些数从小到大排序。最后将已派的数输出!
(冒泡排序) 注:只要过程!
例:
program p11(input,output);
var
.........
求求啊!! 不正确不给分啊!