# поток, равный P[i,2],

поток, равный P[i,2], в вершину с номером i. Логическая переменная Lg, значение true - есть цепочка, увеличивающая поток, false - нет. Основная логика. begin &lt;ввод данных и инициализация переменных(Lg:=true)&gt;; while Lg do begin FillChar(P,SizeOf(P),0); &lt;процедура расстановки меток(Mark), если вершину t не смогли пометить, то Lg:=false; результат работы - значение P (метки вершин) &gt;; if Lg then &lt;процедура Stream(t) - изменение потока по дугам найденной цепочки от вершины-стока t до вершины-источника s; входные данные - массив P, результат - измененный массив F&gt;; end; &lt;вывод потока F&gt;; end.{конец обработки} Уточним логику расстановки меток (нелучший вариант). procedure Mark; var M:set of 1..N;i,l:integer; begin M:=[1..N]; {непросмотренные вершины} P[s,1]:=s;P[s,2]:=maxint;{присвоим метку вершине-источнику} l:=s; while (P[t,1]=0) and Lg do begin for i:=1 to N do {поиск непомеченной вершины} if (P[i,1]=0) and

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