Объяснение:
В таблице указаны расстояния между соседними станциями. Значит станции для которых приведены значения являются соседними. Нужно для каждой таблицы найти все возможные маршруты и посчитать их длину.
Поиск маршрутов начинать надо со станции А.
Например из первой таблицы следует, что станция А соседствует со станциями В и Е. Станция В со станцией D, а та со станцией F. Станция Е тоже соседствует со станцией F, Но из E в F можно добраться ещё и через C.
Итого по первой таблице получается 3 маршрута.
A→B→D→F
A→E→F
A→E→C→F
расстояния берёшь из таблицы и складываешь. Получается, что длины всех трёх маршрутов равны 10. То есть не подходит.
Подобным образом проверяешь остальные таблицы.
program Num5;
var
A: array [1..5] of Integer;
i, s, iLast: Integer;
begin
for i := Low (A) to High (A) do begin
Write ('Введите ', i, ' число: ');
ReadLn (A [i]);
end;
WriteLn;
s := 0;
for i := Low (A) to High (A) do begin
if A [i] > 0 then
s := s + A [i]
else
s := s - A [i];
end;
iLast := -1;
for i := High (A) downto Low (A) do begin
if A [i] > 0 then begin
iLast := i;
Break;
end;
end;
WriteLn ('Сумма = ', s);
if iLast <> -1 then
WriteLn ('Последнее положительное значение = ', A [iLast])
else
WriteLn ('Положительных значений не найдено.');
ReadLn;
end.
