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

m[i,0]:=n[i,0];

m[i,1]:=n[i,1];

m[i,2]:=n[i,2];

n[i,0]:=q[i,0];

n[i,1]:=q[i,1];

n[i,2]:=q[i,2];

end;

min:=m[0,0];

kon:=false;

i:=0;

//Ищем минимальный среди нечетных

repeat

if m[i,0]<min then

begin

min:=m[i,0];

end;

if m[i,0]=-2 then

begin

m[i,0]:=0;

min:=0;

kon:=true;

end;

i:=i+1;

until (kon=true)or(i>=length(m));

kon:=false;

i:=0;

repeat

if m[i,0]=min then

begin