# of integer; i,j,u,nm,yk:inte

of integer; i,j,u,nm,yk:integer; begin {инициализация данных} FillChar(NumIn,SizeOf(NumIn),0); for i:=1 to N do for j:=1 to N do if A[i,j]&lt;&gt;0 then Inc(NumIn[j]); nm:=0;yk:=0; for i?V do if NumIn[i]=0 then begin Inc(yk);Stack[yk]:=i; end; {основной цикл} while yk&lt;&gt;0 do begin u:=Stack[yk];Dec[yk];Inc(nm);Num[u]:=nm; for i:=1 to n do if A[u,i]&lt;&gt;0 then begin Dec(NumIn[i]); if NumIn[i]=0 then begin Inc(yk); Stack[yk]:=i; end; end; end; end; Итак, пусть для графа G выполнено условие утверждения и нам необходимо найти кратчайшие пути (их длины) от первой вершины до всех остальных . Пусть мы находим оценку для вершины с номером i. Достаточно просмотреть вершины, из которых идут дуги в вершину с номером i. Они имеют меньшие номера, и оценки для них уже известны. Остается выбрать меньшую из них. procedure Distance; {D, A - глобальные] var i,j:integer; begin D[1]:=0; for i:=2 to N do D[i]:=?; {основной

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа