Курсовая работа: Транспортная задача по критериям стоимости и времени
end;
i:=0;
kon:=false;
Repeat
if q[i,0]>=0 then
begin
Cikle(q[i,0],q[i,1],s);
if s[l,r]=0 then
begin
kon:=true;
err:=false;
for k:=0 to Length(t)-1 do
For j:=0 to Length(t[1])-1 do
x[k,j]:=s[k,j];
end
else
begin
q[i,0]:=-1;
q[i,1]:=-1;
for k:=0 to Length(t)-1 do
For j:=0 to Length(t[1])-1 do
s[k,j]:=x[k,j];
end;
end;
inc(i);
Until (i>length(q)-1)or(kon=true);
Until (err=true)and(kon=false);
max2:=0;
for i:=0 to Length(t)-1 do