Рюкзаки Pascal

[Илкин]

Вообщем надо сделать программу в паскале
Условия таковы:
В поход собирались 2 4еловека с вещами.
В программе надо спросить у пользователя кол-во вещей и вес каждой вещи.А дальше программа должна ровно поделить кол-во вещей между 2мя 4еловеками.
Заранее спасибо!!!

[Zer0]

readln(kVesh);
summ:=0;
for i:=1 to kVesh do begin
 write ('Ves ',i,' veshi: ');
 readln(a);
 summ:=summ+a;
end;
summ:=summ/2;
writeln ('Kajdiy beret po ',summ:0:2);
readln;
end.

[Serge_Bliznykov]

Zer0, извините, но, к сожалению, вынужден константировать, что Ваш пример НЕ РЕШАЕТ поставленную задачу...

для двух человек алгоритм решения (и обсуждение проблемы) можно посмотреть
здесь:

Разделение предметов по весу

Имеется N предметов, веса которых равны W1, W2, . . . , WN. Разделить эти предметы на две группы так, чтобы общие веса групп были максимально близки.

Думаю, что можно попробовать адаптировать этот же алгоритм и для трёх-четырёх человек...

Только учтите, что эти алгоритмы дают вариант, максимально приближенный к оптимальному, но совсем не обязательно - оптимальный!

Ну или поиск оптимального решения - полным перебором всех вариантов и выбором лучшего. Но это будет явно не быстро (при достаточно большом наборе предметов)...

[Zer0]

2 Serge
Тьфу, еще раз тьфу, и в самом деле неверно понял условие

[Илкин]

Помогите сро4но надо пожалуйста!

[pro100angel]

Помогите плиз!!!!
Дано масив A розміру N і ціле число K (1 < K < 4, K < N). Здійснити циклічне зрушення елементів масиву вліво на K позицій (при цьому AN перейде в AN-K, AN-1 - в AN-K-1, ..., A1 - в AN-K+1). Допускається використовувати допоміжний масив з 4 елементів.

[Илкин]

аппппппппппппп

[Zer0]

Вам уже дали ссылку на тему с подобной задачей, http://www.programmersforum.ru/showp...8&postcount=14

[Илкин]

Сообщение от Zer0

Вам уже дали ссылку на тему с подобной задачей, http://www.programmersforum.ru/showp...8&postcount=14

Сообщение от Zer0

C++ программирование > Общие вопросы C/C++

в C++ я вообще 0 прошу же в паскале

[Илкин]

Uppppppppppppp