Cod sursa(job #1173390)
Utilizator | robert robertic | Data | 19 aprilie 2014 15:47:50 |
---|---|---|---|
Problema | Problema rucsacului | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.57 kb |
program p3;
var fi,fo:text;
n,g,i,j:integer;
p:array[0..5010] of integer;
w:array[0..10000] of integer;
d:array[0..10010,0..5010] of integer;
Begin
assign(fi,'rucsac.in');reset(fi);
assign(fo,'rucsac.out');rewrite(fo);
readln(fi,n,g);
for i:=1 to n do readln(fi,w[i],p[i]);
for i:=1 to n do
for j:=0 to g do begin
d[i,j]:=d[i-1,j];
if j>=w[i] then
if d[i-1,j-w[i]]+p[i]>d[i,j] then
d[i,j]:=d[i-1,j-w[i]]+p[i];
end;
writeln(fo,d[n,g]);
close(fi);
close(fo);
end.