Pagini recente » Cod sursa (job #2586322) | Cod sursa (job #2235027) | Cod sursa (job #404290) | Cod sursa (job #2375533) | Cod sursa (job #45653)
Cod sursa(job #45653)
{$IFDEF NORMAL}
{$I-,Q-,R-,S-}
{$ENDIF NORMAL}
{$IFDEF DEBUG}
{$I+,Q+,R+,S-}
{$ENDIF DEBUG}
{$IFDEF RELEASE}
{$I-,Q-,R-,S-}
{$ENDIF RELEASE}
program semne;
var i,n,s:longint;
a:array[1..50002] of longint;
sol:array[1..500002] of char;
fi,fo:text;
procedure print;
var i:longint;
begin
for i:=1 to n do
write(fo,sol[i]);
end;
procedure solve;
var i,j,sc:longint;
begin
for i:=0 to (1 shl n) do
begin
sc:=0;
for j:=1 to n do
if ((1 shl (j-1)) and i) <>0 then
begin
sc:=sc-a[j];
sol[j]:='-';
end
else
begin
sc:=sc+a[j];
sol[j]:='+';
end;
if s=sc then
begin
print;
close(fo);
halt;
end;
end;
end;
begin
assign(fi,'semne.in'); reset(fi);
assign(fo,'semne.out'); rewrite(fo);
readln(fi,n,s);
for i:=1 to n do
read(fi,a[i]);
solve;
close(fi);
close(fo);
end.