Cod sursa(job #1072399)

Utilizator vrabievictorvictor 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
Raporteaza aceasta sursa 
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.