program v13_p6;
uses crt;
type
mas = array [1..100] of real;
var
arr:mas;
n,i:integer;
min:real;

begin
write('Aaaaeoa aeeio ianneaa: ');
read(n);
for i:=1 to n do
begin
write('Yeaiaio[',i,']: ');
readln(arr[i]);
end;
min:=0;
for i:=1 to n do
 begin
   if (arr[i]>=0) then
   begin
   min:=arr[i];
   break;
   end;
 end;
        if(min>0) then
        begin
for i:=1 to n do
begin

if (arr[i]<min) and (arr[i]>=0) then min:=arr[i];
end;

for i:=1 to n do
begin
if arr[i]<=0 then arr[i]:=min;
end;
Writeln('?acoeuoao: ');
end;
for i:=1 to n do
write(' ',arr[i]);

end.