Pagini recente » Cod sursa (job #221758) | Cod sursa (job #1993362) | Cod sursa (job #224851) | Cod sursa (job #3160476) | Cod sursa (job #21276)
Cod sursa(job #21276)
{$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..50000] of longint;
fi,fo:text;
procedure solve;
var i,j,sc:longint;
st:ansistring;
begin
for i:=0 to (1 shl n) do
begin
st:='';
sc:=0;
for j:=1 to n do
if ((1 shl (j-1)) and i) <>0 then
begin
sc:=sc-a[j];
st:=st+'-';
end
else
begin
sc:=sc+a[j];
st:=st+'+';
end;
if s=sc then
begin
write(fo,st);
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.