0-1 рюкзак: наибольший вес

[Evil Nigga]

Видел только заполнение рюкзака чтобы была наибольшая стоимость, а как это решить не имею представления. Помогите, пожалуйста, непонятлиевому.

Дано N золотых слитков массой m1, …, mN. Ими наполняют рюкзак, который выдерживает вес не более M. Какую наибольшую массу золота можно унести в таком рюкзаке?

Входные данные
В первой строке вводится натуральное число N, не превышающее 100 и натуральное число M, не превышающее 10000.
Во второе строке вводятся N натуральных чисел mi, не превышающих 100.

Выходные данные
Выведите одно целое число - наибольшую возможную массу золота, которую можно унести в данном рюкзаке.

Входные данные
4 6
2 7 1 1

Выходные данные
4

[Poma][a]

var
	n, m, i, j : LongInt;
	w : array [1..100] of Integer;
	a : array [0..100, 0..10000] of Integer;

begin
	ReadLn(n, m);

	for i := 1 to n do Read(w[i]);


	for i := 1 to n do 
		for j := 0 to m do begin
			a[i][j] := a[i-1][j];
			if (j >= w[i]) and (a[i-1][j-w[i]]+w[i] > a[i][j]) then a[i][j] := a[i-1][j-w[i]]+w[i]; 
		end;



	WriteLn(a[n][m]);
end.

[Evil Nigga]

Poma][a, а как изменится решение,если количество слитков каждого достоинства неограниченное количество?

[Poma][a]

Пока вижу только такой вариант : добавляем n+1 слиток.. сначала он ставится равным 1-ому, 2-ому и т.д. Как только мы улучшили результат, мы повторяем всё сначала.. И так до тех пор, пока результат не остановится улучшаться