Программа на Pascal

[-snt]

Нужно составить программу в паскале, где следует заполнить двумерный(зеркальный по диагонали) массив рандомом или вводом с клавиатуры, а в подпрограмме найти путь с помощью деревянного алгоритма.


Вот сдесь написано про деревянный алгоритм в пункте 1.2.2
http://www.managment.aaanet.ru/economics/kommivoyajer.php


То что я сделал:
Код Pascal1
Program bl;
var i,j,n:longint;
a: array[1..100,1..100] of integer;
Procedure Derevynnbly algoritm;
//Сдесь будет подпрограмма где надо найти путь, с помощью деревянного алгоритма
end;
//Основная прога
Begin
ClrScr
Write('Vvedite kol-vo gorodov:');
Readln(n);
for i:=1 to n do
for j:=1 to n do
begin
if (i=j) then a[i,j]:=0;
if (i<j) then
begin
Write('Vvedite rasstoyanie v ycheiku (a[',i,',',j,']=)');
readln(a[i,j]);
a[j,i]:=a[i,j];
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
Write(a[i,j]:4);
Writeln;
end;
Readln;
end.

нужно сделать подпрограмму

ICQ: 499-130-281

[-snt]

----Up----