Pagini recente » Cod sursa (job #1223332) | Cod sursa (job #1610821) | Cod sursa (job #1138793) | Cod sursa (job #3180898) | Cod sursa (job #1885125)
Program Rucsac1; {DimaTrubca}
uses crt;
var a: array[0..5020,0..10020] of word;
m,c:array[1..5020] of word;
n,i,j,g,s,k: word;
fi,fo: text;
begin clrscr;
assign(fi,'rucsac.in');
assign(fo,'rucsac.out');
reset(fi);
rewrite(fo);
read(fi,n);
readln(fi,g);
i:=0;
while not(eof(fi)) do begin
inc(i);
read(fi,m[i]);
readln(fi,c[i]);
end;
close(fi);
{ for i:=0 to n do a[i,0]:=0;
for i:=0 to g do a[0,i]:=0;}
for k:=1 to n do
for s:=0 to g do begin
a[k,s]:=a[k-1,s];
if s>=m[k] then
if a[k-1,s-m[k]]+c[k] > a[k,s] then a[k,s]:=a[k-1, s-m[k]]+c[k];
end;
writeln(fo,a[n,g]);
close(fo);
end.