var
n,i,x,j:longint;
s:array[0..20]of string;
begin
? ? readln(n);
? ? for i:=1 to n do//因?yàn)閿?shù)據(jù)之間有空格，所以先讀入成數(shù)字，再變?yōu)樽址?br /> ? ? 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//選排會(huì)將所有情況一一模擬，繼而找出最大數(shù)
? ? ? ? ? ? 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.

轉(zhuǎn)載于:https://www.cnblogs.com/YYC-0304/p/9500254.html

總結(jié)

以上是生活随笔為你收集整理的最大正数pascal程序的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。