作业帮 > 综合 > 作业

组数字 pascal【问题描述】把n个数进行排列,会用许许多多不同的数字,请找出所有新数(表示后来排成的数)中的最大数.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/11/09 10:26:00
组数字 pascal
【问题描述】
把n个数进行排列,会用许许多多不同的数字,请找出所有新数(表示后来排成的数)中的最大数.(不用一个个列出来算)
【输入格式】
输入仅两行.输入n,表示有n个数.接下来是输入n个数,表示需要用来组数字的数.
【输出格式】
输出文件仅一行.输出排成最大的那个数.
【输入样例】
3
21 7 34
【输出样例】
73421`
【数据规模】
1
var i,j,k,b,a,c,n,m:longint;
f:array[0..101]of string;
begin
readln(n);
readln(f[0]);
f[0]:=' '+f[0];
for i:=2to length(f[0]) do begin
if (f[0][i] ' ')then begin
if f[0][i-1]=' ' then
inc(a);
f[a]:=f[a]+f[0][i];
end;
end;
for i:=1to n-1 do
for j:=i+1to n do if f[i]