美元汇率pascal程序

本文主要是介绍美元汇率pascal程序，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

若今天的汇率比明天的汇率高，那么就换钱。

• 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.

这篇关于美元汇率pascal程序的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---