Cod sursa(job #21276)

Utilizator floringh06Florin Ghesu floringh06 Data 23 februarie 2007 10:52:05
Problema Semne Scor 15
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.93 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..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.