# задача решена, т.е.

задача решена, т.е. известны значения d[j] (j ) - количество городов в наилучшем маршруте, заканчивающемся в городе с номером j. Итак: d[i]:=0; for j Qi do if d[j]+1&gt;d[i] then d[i]:=d[j]+1; Остается открытым вопрос, а где же маршрут? Ибо значение d дает только количество городов, через которые он проходит. А для этого необходимо запомнить не только значение d[i], но и номер города j, дающего это значение. Возможно использование следующей структуры данных: A:array[1..max] of record d, l:byte; end; И реализация сказанного имеет вид: FillChar(A,SizeOf(A),0); A[1].d:=1; for i:=2 to n do begin for j:=1 to i-1 do if west[j,i] then if A[j].d+1&gt;A[i].d then begin A[i].d:=A[j].d+1; A[i].l:=j; end; end; Видим, что это не что иное, как метод динамического программирования в действии. Осталось выполнить обратный просмотр массива A по значениям поля l, начиная с элемента A[n].l и вывести из массива name:array[1..max] of string[15]

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