FileBlockShemEditorV2 ФЦаФвЦаБвГ®n°pvqxsprocedure Sallesman(n,f:integer;W:array [1..n,1..n] of real;var weight:real; x:array [1..n] of integer); процедура решает задачу о коммивояжере используя метод перебора. n- колличество городов, W- матрица цен на билеты, f - номер первого города, в x - помещается путь с минимальной суммой цен на билеты, weight- цена пути x или равна бесконечности(10E6), если нет пути. Процедура использует процедуру NextPerest для вычисления следующей перестановки.~$begin„&В<weight:=10E6; y[1]:=u1; i:=2;„FВ`end„$В:оbрdо№р»vКxМўК¤Мv№x»i<=n„ЇВЕnot±†»yesј±О»i:=i+1 „›В§ХqЧsv‘x“Х‘Ч“y[i]:=i-1В{к‡i-1<>f„gВ}novk€uyesѕkРuЬЯЮбYО[РY[ЬЮxzў¤xЯzбy[1]=f„ФВмnovЩ€гyesѕЩРгNextPerest(n,y,End)·нщ&(QSQKSM&K(MЏX‘ZЬXЮZЏ‘s:=0; i:=1;ѕпь(W[y[i],y[i+1]])<10E6)and(i