Cod sursa(job #82997)

Utilizator M@2Te4iMatei Misarca M@2Te4i Data 9 septembrie 2007 17:26:40
Problema Semne Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.84 kb
program semne;

const v=500000;

var n,w:longint;
    suma:int64;
    a,b:array[0..v]of int64;
    s,d:array[0..v]of ansistring;

procedure adunare;
var i:longint;
begin
fillchar(b,sizeof(b),0);
for i:=1 to a[0] do
    begin
    inc(b[0]);
    b[b[0]]:=a[i]+w;
    d[b[0]]:=s[i]+'+';
    inc(b[0]);
    b[b[0]]:=a[i]-w;
    d[b[0]]:=s[i]+'-';
    end;
a:=b;
s:=d;
end;

procedure citire;
var i:longint;
begin
assign(input,'semne.in');
reset(input);
readln(n,suma);
a[0]:=1;
{read(a[1]);}
for i:=1 to n do
    begin
    read(w);
    adunare;
    end;
close(input);
end;

procedure afisare;
var i:longint;
begin
assign(output,'semne.out');
rewrite(output);
for i:=1 to a[0] do
    if a[i]=suma then
       begin
       write(s[i]);
       break;
       end;
close(output);
end;

begin
citire;
afisare;
end.