 sofmeo 
                                                05.05.2020 15:46
                                                
                                                sofmeo 
                                                05.05.2020 15:46
                                             grexegor 
                                                01.06.2019 07:10
                                                
                                                grexegor 
                                                01.06.2019 07:10
                                             Aigerimmmmmmm 
                                                20.04.2019 20:15
                                                
                                                Aigerimmmmmmm 
                                                20.04.2019 20:15
                                             Оpiggyugrs 
                                                05.03.2021 07:00
                                                
                                                Оpiggyugrs 
                                                05.03.2021 07:00
                                             lihach121 
                                                05.03.2021 07:00
                                                
                                                lihach121 
                                                05.03.2021 07:00
                                             Viktor15102 
                                                05.03.2021 06:59
                                                
                                                Viktor15102 
                                                05.03.2021 06:59
                                             dasha505dasha 
                                                05.03.2021 06:58
                                                
                                                dasha505dasha 
                                                05.03.2021 06:58
                                             Милята240106 
                                                05.03.2021 06:53
                                                
                                                Милята240106 
                                                05.03.2021 06:53
                                             даша3474 
                                                20.05.2020 14:59
                                                
                                                даша3474 
                                                20.05.2020 14:59
                                            
добрый вечер, самый оптимальный вариант использовать алгоритм де-йкстры (при поиски пишите без " - "), по правилам сообщества ссылки оставлять не могу, но на вики довольно хорошо расписано как его реализовать. там же есть и псевдокод. думаю если поищите в интернете найдете реализацию на pascal.
буду за отметку "лучший ответ"
Шаг 1: Чтение весовой матрицы графа из файла
- Откройте файл, содержащий весовую матрицу графа, для чтения.
- Считайте матрицу построчно и сохраните значения в двумерный массив.
- Закройте файл после чтения.
Шаг 2: Ввод начальной и конечной вершин с клавиатуры
- Попросите пользователя ввести номер начальной вершины и сохраните значение в переменной.
- Попросите пользователя ввести номер конечной вершины и сохраните значение в другой переменной.
Шаг 3: Определение кратчайшего маршрута
- Создайте два пустых списка: список посещенных вершин и список расстояний до каждой вершины из начальной вершины.
- Инициализируйте список расстояний так, чтобы расстояние до начальной вершины было равно 0, а для всех остальных вершин - бесконечность.
- Создайте переменную "текущая вершина" и установите ее равной начальной вершине.
- Пока текущая вершина не станет конечной:
- Добавьте текущую вершину в список посещенных вершин.
- Для каждой непосещенной вершины, смежной с текущей:
- Если сумма расстояния до текущей вершины и веса ребра между текущей и смежной вершиной меньше, чем текущее расстояние до смежной вершины, обновите расстояние.
- Выберите следующую непосещенную вершину с минимальным расстоянием из списка расстояний.
- Установите текущую вершину равной выбранной вершине.
Шаг 4: Вывод кратчайшего маршрута
- Создайте пустой список, который будет хранить кратчайший маршрут.
- Начиная с конечной вершины, добавляйте вершины в список маршрута, двигаясь от конечной к начальной вершине по обновленным расстояниям.
- Разверните список маршрута, чтобы получить правильную последовательность вершин.
Шаг 5: Вывод результата
- Выведите на экран кратчайший маршрут и его длину.
Данное решение использует алгоритм Дейкстры для нахождения кратчайшего маршрута во взвешенном графе. Алгоритм работает во временной сложности O(E*log(V)), где E - количество ребер в графе, а V - количество вершин.