題意

找出最大的數(shù)和它的序號(hào)

分析

先長(zhǎng)度排序，長(zhǎng)度相同，就字符串排序

var
n,i,j:longint;
a:array[0..20]of string;
b,l:array[0..20]of longint;
begin
? ? readln(n);
? ? for i:=1 to n do
? ? begin
? ? ? ? readln(a[i]);
? ? ? ? l[i]:=length(a[i]);
? ? ? ? b[i]:=i;
? ? end;


? ? for i:=1 to n-1 do
? ? begin


? ? ? ? for j:=i+1 to n do
? ? ? ? begin
? ? ? ? ? ? if (l[i]<l[j])or(l[i]=l[j])and(a[i]<a[j]) then
? ? ? ? ? ? begin
? ? ? ? ? ? ? ? a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
? ? ? ? ? ? ? ? l[0]:=l[i];l[i]:=l[j];l[j]:=l[0];
? ? ? ? ? ? ? ? b[0]:=b[i];b[i]:=b[j];b[j]:=b[0];
? ? ? ? ? ? end;
? ? ? ? end;


? ? end;
? ? writeln(b[1]);
? ? write(a[1]);
end.

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

總結(jié)

以上是生活随笔為你收集整理的宇宙总统pascal程序的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

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