program asd;
uses crt;
const n=20;
var q,x:array[1..n] of real;
j,l,k,s,i,v,f:integer;
u:real;

BEGIN clrscr;
randomize;
for i:=1 to n do BEGIN x[i]:=random(10)+5;
write(' ',x[i]);
end;
writeln;
writeln;
for i:=2 to n do if i mod 2<> 0 then x[i]:=x[i]/x[1];
for i:=1 to n do writeln(' ',x[i]:1:2);
readln;
end.