Cod sursa(job #1111144)
Utilizator | Data | 18 februarie 2014 17:37:29 | |
---|---|---|---|
Problema | Problema rucsacului | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.43 kb |
program rucsac;
var n,g,w,p,c,i,j:longint;
a:array[0..10000] of longint;
begin
assign(input,'rucsac.in');
reset(input);
assign(output,'rucsac.out');
rewrite(output);
readln(n,g);
for i:=1 to n do
begin
readln(w,p);
for j:=g downto w do
begin
c:=a[j-w]+p;
if c>a[j] then a[j]:=c;
end;
end;
writeln(a[g]);
close(input);close(output);
end.