美元汇率Pascal题解

问题 : 美元汇率

时间限制: 1 Sec内存限制: 128 MB

题目描述

在以后的若干天里戴维将学习美元与德国马克的汇率。编写程序帮助戴维何时应卖货买马克或美元，是他从100美元开始，最后能获得最高可能的价值。

输入

第一行是一个自然数n，1≤n≤100，表示戴维学习汇率的天数。
接下来的n行中每行是一个自然数a，1≤a≤1000.第i+1行的a表示预先知道的第i+1天的平均汇率，在这一天中，戴维既能用100美元买a马克也能用a马克购买100美元。

输出

一个数据，即要求的钱数（单位为美元，保留一位小数）。
注意：戴维必须在最后一天结束前将他的钱都换成美元。

样例输入

5
400
300
500
300
250

样例输出

266.7

提示

买入卖出就是 *A/B

分析

永远也不做亏本生意！！！

参考题解

var

a:

array

[

1..999

]

of

double

;

i,n:

longint

;

my:

double

;

begin

readln(n);

for

i:=

1

to

n

do

read(a[i]);

my:=

100

;//起始美元

for

i:=

1

to

n-

1

do

if

a[i]>a[i+

1

]

then

my:=my*a[i]/a[i+

1

];//如果可以赚点钱，那么成交。算出可以得到的美元

writeln

(my:

0

:

1

);

end

.