Cod sursa(job #1072399)
| Utilizator |  victor vrabie vrabievictor |
Data | 4 ianuarie 2014 13:51:53 |
|---|---|---|---|
| Problema | Problema rucsacului | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.33 kb |
program rucsac;
var t:array[0..10009]of longint;
n,i,j,k,g,p: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(k,p);
for j:=g-k downto 0 do
if t[j+k]<t[j]+p then t[j+k]:=t[j]+p;
end;
writeln(t[g]);
close(input);close(output);
end.
