9. Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённость которых приведена в таблице. Определите длину
кратчайшего пути между пунктами А и Е.
A
В
с
D
E
F
А
7
2
2
5
5
B
7
2
с
2
2
1
1
D
1
о | о м | |
1
1
1
E
1
1
1
F
1
Мой ответ

VB.    

 Dim A() As Integer

        Randomize()
        Dim k As Integer
        Dim i As Integer
        i = Rnd() * 100 + 1
        ReDim A(i)
        For k = 0 To i
            A(k) = Rnd() * -1000 + 500
        Next

        Dim intA, intB As Integer
        intA = InputBox("Введите начало интервала")
        intB = InputBox("Введите конец интервала")
        Dim R, Q, S As Integer
        R = 0
        For i = 1 To UBound(A)
            If A(i) < A(R) Then R = i
            If A(i) Mod 2 <> 0 Then Q = Q + A(i)
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
            If A(i) > intA And A(i) < intB Then S = S + 1
        Next

        MsgBox("T=R/Q+1+S = " & A(R) / Q + 1 + S)

uses crt;
var a, b, c, i, j, n:integer;   
s, k :array [1..10000] of integer;
begin
     clrscr;
     writeln ('Введите размер массива > 4.');
     read (n);
     for i:=1 to n do 
     begin 
          writeln ('Введите ', i, ' элемент.'); 
          read (s[i]); 
     end;
     for i:=1 to n do 
          for j:=1 to n-1 do 
               while s[i]=s[j] do   
               begin   
                    j:=j+1;   
                    inc (k[i]);   
               end;
     a:=k[1];
     for i:=1 to n do 
          if a<k[i] then
               a:=k[i];
     if k[i]=0 then k[i]:=1;
     writeln ('Наибольшая длина равных элементов идущих последовательно равна ', k[i], '.');
     for i:=1 to n-5 do 
          if (s[i+4]-s[i+3]=1) and (s[i+3]-s[i+2]=1) and (s[i+2]-s[i+1]=1) and (s[i+1]-s[i]=1) then  inc (b);
     if b=0 then writeln ('Нет 5 последовательны чисел.') else writeln ('Есть 5 последовательных чисел и это количество равно ', b);
end.

P.S. Надеюсь на благодарность и лучший ответ.