-
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.
美元汇率
最新推荐文章于 2022-12-30 22:41:08 发布
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.