美元汇率

来源:互联网 发布:二叉树反转 java 编辑:程序博客网 时间:2024/04/29 17:49
  • 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.

1 0
原创粉丝点击