美元汇率pascal程序

来源:互联网 发布:ido视频软件 编辑:程序博客网 时间:2024/04/29 20:10

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

  • varm:real;a:array[0..100]of longint;n,i:longint;begin    readln(n);    for i:=1 to n do    readln(a[i]);    m:=100;    for i:=1 to n-1 do    if a[i]>a[i+1] then m:=m*a[i]/a[i+1];    write(m:0:2);end.

0 0
原创粉丝点击