?? p1059(others).bak
字號:
program p1059;
var min:longint;n:integer;
f:array[1..100,0..10000]of boolean;
procedure main1;
var i,sum,j,b:longint;
begin
fillchar(f,sizeof(f),false);
readln(n);min:=maxint;
for i:=1 to n do
begin
read(b);
sum:=0;
f[i,0]:=true;
while b<>-1 do
begin
for j:=sum downto 0 do
if f[i,j] then f[i,j+b]:=true;
sum:=sum+b;
read(b);
end;
readln;if sum<min then min:=sum;
end;
end;
procedure main2;
var i,j:longint;
begin
for j:=min downto 1 do
begin
for i:=1 to n do
if not f[i,j]then break;
if f[i,j] then begin writeln(j);halt;end;
end;
writeln('0');
end;
begin
main1;main2;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -