program kom; {$APPTYPE CONSOLE} uses SysUtils; const n_t =20; //кол-во городов n_os =50; //кол-во особей v_mut=1; //вероятность мутации для каждой особи(в %) v_cross=60;//вероятность скрещивания для каждой пары особей(в %) max=10; //максимальное расстояние между городами type TTowns=array[1.. n_t ,1.. n_t ]of byte; //массив, описывающий расстояния между городами TOsobi=array[1.. n_os +1,1.. n_t ]of byte; //массив хромосом var ...