var i:integer;
b:integer;
a:array[1..1000] of integer;
d:real;
begin
read(b);
for i:=1 to b do read(a[i]);
d := 100;
for i :=1 to b-1 do
if a[i]>a[i+1] then d:=d*a[i]/a[i+1];
writeln(d:0:2);
end.
b:integer;
a:array[1..1000] of integer;
d:real;
begin
read(b);
for i:=1 to b do read(a[i]);
d := 100;
for i :=1 to b-1 do
if a[i]>a[i+1] then d:=d*a[i]/a[i+1];
writeln(d:0:2);
end.