Необходимо написать программу, которая будет вводит из файла весовую матрицу графа, затем вводит с клавиатуры номера начальной и конечной вершини определяет кратчайший маршрут на abc pascal

добрый вечер, самый оптимальный вариант использовать алгоритм де-йкстры (при поиски пишите без " - "), по правилам сообщества ссылки оставлять не могу, но на вики довольно хорошо расписано как его реализовать. там же есть и псевдокод. думаю если поищите в интернете найдете реализацию на pascal.

буду за отметку "лучший ответ"

Program z1;   var i,n,a,b,c: integer;       m: array [1..1000] of integer; begin  write('введите кол-во чисел - ');   readln(n);     randomize;     a: =0;     b: =0;     c: =0;   for i: =1 to n do  begin    m[i]: =random(100)-50;     write (m[i],' ');   end;       for i: =1 to n do    if (m[i]=0) then a: =a+1;         for i: =1 to n do    if (m[i]> 0) then b: =b+1;         for i: =1 to n do    if (m[i]< 0) then c: =c+1;   writeln;   writeln ('кол-во нулей - ',a);   writeln ('кол-во положительных чисел - ',b);   writeln ('кол-во отрицательных чисел - ',c); end.

1. создайте новый документ word.2. щелкните на горизонтальной линейке на отметке 2 см. на линейке появится значок табуляции.3. щелкните на отметках 5,8 и 11 см, чтобы добавить еще три позиции табуляции.4. нажмите клавишу tab и введите цифру-1. текстовый курсор перепрыгнет в текущей строке вправо на позицию 2 см, где и появится введенная цифра.5. напечатайте цифры 2, 3 и 4, нажимая перед вводом каждой из них клавишу tab.6. нажмите клавишу enter и введите еще четыре числа, предваряя каждое из них нажатием клавиши tab. в документе появятся два столбца чисел, выравненных по размещенным ранее позициям табуляции, как показано на рис. 6.11. 7. выделите две строки с числами и перетащите значок табуляции с отметки 8 см на отметку 7 см. третий столбец таблицы сместится влево вслед за значком табуляции.