Cod sursa(job #171425)
Utilizator | Data | 4 aprilie 2008 12:31:35 | |
---|---|---|---|
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]:=v[i];
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.