Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
38
21
const maxx=4000;
minn=-4000;
var n,i,j,k:longint;
d:array[1..40,minn..maxx] of longint;
a:array[1..40] of longint;
f:text;
//
procedure input;
begin
assign(f,'EXP.INP');
reset(f);
readln(f,n,k);
for i:=1 to n do read(f,a[i]);
close(f);
end;
//
procedure optimize;
begin
d[1,a[1]]:=1;
for i:=1 to n-1 do
for j:=minn+a[i+1] to maxx-a[i+1] do
begin
inc(d[i+1,j-a[i+1]],d[i,j]);
inc(d[i+1,j+a[i+1]],d[i,j]);
end;
end;
//
procedure output;
begin
assign(f,'EXP.OUT');
rewrite(f);
write(f,d[n,k]);
close(f);
end;
//
begin
input;
optimize;
output;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
2377
1794
uses crt;
var tong,n,k,i:longint; a,b:array[1..10000000]of longint; d:text;
procedure pt;
var i,kq:longint;
begin
kq:=a[1];
for i:=1 to n do if b[i]=0 then inc(KQ,a[i+1]) else dec(KQ,A[I+1]);
if kq=k then begin inc(tong); end;
end;
function dequy(a:longint):longint;
var i,j:longint;
begin
for i:=0 to 1 do
begin
b[a]:=i;
if a<>n then
dequy(a+1) else begin pt; dequy:=1; end;
end;
end;
begin
clrscr;
assign(d,'input.pas');reset(d);
readln(d,n,k);
for i:=1 to n do read(d,a[i]);
close(d); dec(n);
dequy(1);
assign(d,'output.pas');rewrite(d);
writeln(d,tong);
close(d);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
38
890
21
câu trả lời hay nhất b eiiiiiiiiiiii
38
890
21
đù thằng nào báo cáo đấy
681
7730
883
Woww