美元汇率

    xiaoxiao2021-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)