Между населёнными пунктами A, B, C, D, E, F построены дороги. Определи длину кратчайшего пути между пунктами A и F. Передвигаться можно только по дорогам, протяжённость которых указана в таблице

// PascalABC.NET 3.0, сборка 1088
const
  nn=100;

type
  Vector=array[1..nn] of integer;

function Min(a:Vector; n:integer):integer;
var
  i,m:integer;
begin
  m:=a[1];
  for i:=2 to n do
    if a[i]<m then m:=a[i];
  Min:=m
end;

var
  V:Vector;
  i,n,m,mn:integer;
begin
  Write('Количество элементов вектора: '); Read(n);
  Write('Значение m: '); Read(m);
  Randomize;
  Writeln('*** Сгенерированный вектор ***');
  for i:=1 to n do begin
    V[i]:=Random(101)-50;
    Write(V[i],' ')
    end;
  Writeln;
  mn:=Min(V,n);
  if mn<=m then Writeln('Минимум ',mn,' не превышает ',m)
  else Writeln('Минимум ',mn,' превышает ',m)
end.

Тестовое решение:
Количество элементов вектора: 20
Значение m: -42
*** Сгенерированный вектор ***
-12 10 -47 8 6 -22 -4 8 -50 -2 36 -38 -39 -41 11 -46 41 -22 -50 24
Минимум -50 не превышает -42

1. Чтобы решить задачу, надо определить, какое количество варенья съест Машенька за 20 дней. Вначале вычислим это количество в ложках, если известно, что за день она съедает по 5 ложек варенья:

5 * 20 = 100 ложек.

2. Теперь переведем 100 ложек варенья в граммы, если известно, что каждая ложка помещает 5 г варенья:

100 * 5 = 500 грамм.

3. Если исходное количество варенья составляет 650 грамм, тогда вычтем из этой массы ту часть, что съест Машенька за 20 дней и получим массу оставшегося варенья через 20 дней:

650 - 500 = 150 грамм.

ответ: получили, что через 20 дней в банке останется всего 150 грамм варенья.