最大正数pascal程序
来源:互联网 发布:二叉树反转 java 编辑:程序博客网 时间:2024/03/29 17:02
var
n,i,x,j:longint;
s:array[0..20]of string;
begin
readln(n);
for i:=1 to n do//因为数据之间有空格,所以先读入成数字,再变为字符串
begin
read(x);
str(x,s[i]);
end;
for i:=1 to n-1 do//要用选排
begin
for j:=i+1 to n do
begin
if s[i]+s[j]<s[j]+s[i] then//选排会将所有情况一一模拟,继而找出最大数
begin
s[0]:=s[i];
s[i]:=s[j];
s[j]:=s[0];
end;
end;
end;
for i:=1 to n do//排完序后,输出就可以了
write(s[i]);
end.
n,i,x,j:longint;
s:array[0..20]of string;
begin
readln(n);
for i:=1 to n do//因为数据之间有空格,所以先读入成数字,再变为字符串
begin
read(x);
str(x,s[i]);
end;
for i:=1 to n-1 do//要用选排
begin
for j:=i+1 to n do
begin
if s[i]+s[j]<s[j]+s[i] then//选排会将所有情况一一模拟,继而找出最大数
begin
s[0]:=s[i];
s[i]:=s[j];
s[j]:=s[0];
end;
end;
end;
for i:=1 to n do//排完序后,输出就可以了
write(s[i]);
end.
0 0
- 最大正数pascal程序
- 最大流PASCAL
- PASCAL基础-程序体
- 我是程序猿-Pascal
- 拼数pascal程序
- 纪念品分组pascal程序
- 美元汇率pascal程序
- 零件分组pascal程序
- 字符序列pascal程序
- 迷宫问题pascal程序
- 最优乘车pascal程序
- 机器翻译pascal程序
- 分数线划定pascal程序
- 宇宙总统pascal程序
- 铺地毯pascal程序
- 多项式输出pascal程序
- 均分纸牌pascal程序
- 魔法照片pascal程序
- mybatis 最简单的执行自定义SQL语句
- 如何使用Git上传项目代码到github
- 从零开始学网络爬虫之数据区MySQL
- Log4j2配置之Appenders
- 获取当前cell
- 最大正数pascal程序
- adr ldr
- Activity和Activity带参数跳转 带参数返回
- Oracle 定时任务遇到的问题
- 光线投影算法
- QString与char *的转换
- 美元汇率
- 只用一个click绑定多个div示例
- 玩玩Linux云主机-redis的数据类型