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

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

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

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.