1) 9 км
Объяснение:
Транспортная задача (классика теории графов).
Населенные пункты - названия столбцов и строк. Число в пересечении строк и столбцов - расстояние между соответствующими населенными пунктами. Например, для нахождения расстояния между населенными пунктами E и D найдем пересечение строки E и столбца D. На пересечении стоит 1. Значит расстояние между этими населенными пунктами равно одному километру.
Поскольку движение между населенными пунктами двустороннее, длина пути из пункта E в пункт D, равна длине пути из пункта D в пункт E. По этой причине на пересечении строки E и столбца D стоит тоже значение, что и на пересечении строки D и столбца E. То есть матрица симметричная. Главная диагональ матрицы закрашена, поскольку маршрута из населенного пункта в самого себя не существует.
Вот, собственно и весь смысл приведенной таблицы.
Теперь по поводу задания: найти кротчайший путь от населенного пункта B в населенный пункт C.
Рассмотрим строку B (при желании можно и столбец, ведь матрица-то симметричная).
Единственный путь, который ведет из пункта B ведет в пункт A (никаких других значений в строке B нет).
Длина пути BA равна 3 км.
Посмотрим, куда можно попасть из пункта A.В строке A три значения:
1) |AB|=3 км
нам туда не надо, мы только что оттуда вышли
2) |AC|=7 км
Итак, у нас есть длина первого пути: |BC|=|BA|+|AC|=3+7=10 км.
3) |AF|=2 км
Из F можно вернуться в A и попасть в D. Из D можно попасть в С и в тот-же F. Получаем второй маршрут: |BC|=|BA|+|AF|+|FD|+|DC|=3+2+2+3=10 км.
Рассмотрим обратный путь из C в B.
Населенный пункт C соединен с тремя населенными пунктами: A,D и E.
Проезд через A и D мы рассмотрели, остается проезд через E.
|CB|=|CE|+|ED|+|DF|+|FA|+|AB|=1+1+2+2+3=9 км
Ну, вот мы и нашли кротчайший путь, из всех возможных.
я напишу для двохвымерного масива
Type Tabl = array [1..5,1..5] of integer;const A: Tabl = ((10,5,6,9,5) , (9,7,12,6,10), (5,4,8,9,11), (10,9,4,2,6), (8,4,6,9,5));var i,j:integer;var Ar,P: real;beginAr:=1;P:=0;for i:=1 to 5 do beginfor j:=1 to 5 dowrite (A[i,j]:3);writeln;end;for i:=1 to 5 dofor j:=1 to 5 do beginP:=A[i,j]+A[i,j];Ar:=(Ar+P)/25;write (Ar:5:2);end;writeln;end.
P.S. в константу можешь писать любые числа, которые придумаешь
Почти получилось, только со среднем арифметическим проблема
и должно быть записано все в таком порядке, как на втором скрине