首页
IT
登录
6mi
u
盘
搜
搜 索
IT
美元汇率
美元汇率
xiaoxiao
2021-12-15
26
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.
转载请注明原文地址: https://ju.6miu.com/read-1000135.html
专利
最新回复
(
0
)