美元汇率

var ans:real; n,i:longint; a:array[0..101] of longint; begin read(n); for i:=1 to n do read(a[i]); ans:=100; for i:=1 to n-1 do if a[i]>a[i+1] then ans:=ans*a[i]/a[i+1]; write(ans:0:2);

end.