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.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500254.html

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。