若今天的匯率比明天的匯率高，那么就換錢。

• var m:real; a:array[0..100]of longint; n,i:longint; beginreadln(n);for i:=1 to n doreadln(a[i]);m:=100;for i:=1 to n-1 doif a[i]>a[i+1] then m:=m*a[i]/a[i+1];write(m:0:2); end.

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

總結(jié)

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

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