Олимпиадные задачи по программированию. Ч. 4. Лучшие решения. Ускова О.Ф - 72 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

Close(F);
mr1:=0;mr2:=0;
l1:=1;l2:=1;
{ниже заполняем массив r1,r2 и находим mr1,mr2}
for j:=1 to n do
begin
k:=1;
max:=macca[1];
for i:=2 to n do
begin
if macca[i]>max then
begin
max:=macca[i];
k:=i;
end;
if i=n then
if (mr1>mr2) or (mr1=mr2) then
begin
mr2:=mr2+max;
r2[l2]:=k;
l2:=l2+1;
macca[k]:=0;
end
else
begin
mr1:=mr1+max;
r1[l1]:=k;
l1:=l1+1;
macca[k]:=0;
end;
end;
end;
writeln;
writeln('Результат:');
write('Номера предметов, находящихся в первом рюкзаке:');
for i:=1 to l1-1 do
write(' ',r1[i]);
write('.Вес этого рюкзака равен ',mr1);
writeln;
write('Номера предметов, находящихся во втором рюкзаке:');
for i:=1 to l2-1 do

Страницы