Cod sursa(job #251653)

Utilizator MihaiBunBunget Mihai MihaiBun Data 3 februarie 2009 00:27:29
Problema Semne Scor 40
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.64 kb
program semne1;
uses crt;
var f:text;
    i,n,x:integer;
    s,s1:int64;
    a:array[1..50000] of longint;
    c:array[1..50000] of char;
begin
  assign(f,'semne.in');
  reset(f);
  readln(f,n,s);
  for i:=1 to n do read(f,a[i]);
  close(f);
  assign(f,'semne.out');
  rewrite(f);
  repeat
  s1:=0;
  for i:=1 to n do
   begin
     x:=random(2);
     if x=0 then begin
                 s1:=s1-a[i];
                 c[i]:='-'
                 end
            else begin
                 s1:=s1+a[i];
                 c[i]:='+'
                 end
   end;
   until s=s1;
   for i:=1 to n do
   write(f,c[i]);
   close(f);
end.