с информатикой ниже скрины вопросов

36.

Объяснение:

1. Ищем путь в таблице, который является уникальным, то есть отличается количеством путей. Таким пунктом является "П3", так как только у него есть два пути.

Ищем на схеме пункт с двумя путями. Это пункт "К". Отмечаем его, как "П3".

Итого получаем: "К" - "П3".

2. Смотрим какие пункты соединены с "П3". Это пункты "П2" и "П5".

У пункта "П2" 4 пути, у пункта "П5" 3 пути.

Ищем на схеме пункт, который связан с "К" и имеет 3 пути (берем именно три, так как нам нужно расстояние от В до Е, где В имеет три пути). Это пункт "Е". Отмечаем его, как "П5".

Итого получаем: "К" - "П3", "Е" - "П5".

3. Ищем в таблице пункт, который связан с "П5" и имеет три пути. "П2" не подходит, так как имеет 4 пути, "П3" мы уже соотнесли с "К". Подходит пункт "П7", так как он имеет три пути и связан с "П5". Соотнесем пункт "В" с "П7".

Итого получаем: "К" - "П3", "Е" - "П5", "В" - "П7".

Так как мы нашли пункты, которые соответствую В и Е, то можем найти расстояние между ними. В итоге, расстояние равно 36.

Программа может выглядеть так:

uses Crt;
const n=10;
type Mas=array [1..n] of integer;
var A: Mas;
    i, temp, MinInd, MaxInd, Max, Min: integer;
begin
ClrScr;
Randomize;
for i:=1 to  n do
   begin
   A[i]:=10+random(90);
   Write (A[i]:5);
   end;
WriteLn;
Max:=A[1]; MaxInd:=1;
Min:=A[1]; MinInd:=1;
for i:=2 to n do
begin
  if A[i]<Min then
     begin
       Min:=A[i];
       MinInd:=i;
     end
     else
       if A[i]>Max then
       begin
       Max:=A[i];
       MaxInd:=i;
     end;
end;
 temp:=A[MaxInd];
 A[MaxInd]:=A[MinInd];
 A[MinInd]:=temp;
 WriteLn;WriteLn;
 for i:=1 to  n do
   Write (A[i]:5);
 WriteLn;
 ReadLn;
end.