Cod sursa(job #45653)

Utilizator floringh06Florin Ghesu floringh06 Data 1 aprilie 2007 19:32:03
Problema Semne Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.02 kb
{$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.