Cod sursa(job #171437)

Utilizator mariusake212Isac Marius-Sergiu mariusake212 Data 4 aprilie 2008 12:52:34
Problema Loto Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 2.1 kb
var
   g:text;
   v:array[1..100]of longint;
   n,a,b,c,d,e,f,i,aux:integer;
   s,st:longint;
   p:boolean;
begin
     assign(g,'loto.in');reset(g);
     read(g,n,s);
     for i:=1 to n do
         read(g,v[i]);
     repeat
           p:=true;
           for i:=1 to n-1 do
               if v[i]>v[i+1] then
                              begin
                              p:=false;
                              aux:=v[i];
                              v[i]:=v[i+1];
                              v[i+1]:=aux;
                              end;
     until p ;
     close(g);assign(g,'loto.out');rewrite(g);
     if s> 6*v[n] then  begin write(g,-1);close(g); exit; end
                  else
                        for a:=1 to n do
                              for b:=a to n do
                                  for c:=b to n do
                                      for d:=c to n do
                                          for e:=d to n do
                                              for f:=e to n do
                                                  begin
                                                  st:=v[a]+v[b]+v[c]+v[d]+v[e]+v[f];
                                                  if st=s then
                                                           begin
                                                          write(g,v[a],' ',v[b],' ',v[c],' ',v[d],' ',v[e],' ',v[f]);
                                                          close(g);
                                                           exit;
                                                           end
                                                           else if st>s then
                                                                   begin
                                                                   write(g,-1);
                                                                   close(g);
                                                                   exit
                                                                   end;
                                                  end;

end.