Курсовая работа: Транспортная задача по критериям стоимости и времени

end;

end;

for i:=0 to length(s[1])-1 do

begin

k:=0;

For j:=0 to length(s)-1 do

if s[j,i]<>0 then

k:=k+1;

if k=1 then

begin

for j:=0 to length(s)-1 do

s[j,i]:=0;

kon:=false;

end;

end;

until kon=true;

k:=0;

//Записываем элементы цикла в масив

For i:=0 to Length(s)-1 do

for j:=0 to Length(s[1])-1 do

if s[i,j]<>0 then

k:=k+1;

SetLength(q,k,3);

k:=0;

For i:=0 to Length(s)-1 do

for j:=0 to Length(s[1])-1 do

If s[i,j]<>0 then

begin

q[k,0]:=s[i,j];