В. "гвоздики" на прямой дощечке вбиты гвоздики. любые два гвоздика можно соединить ниточкой. требуется соединить какие-то пары гвоздиков ниточками так, чтобы к каждому гвоздику была привязана хотя бы одна ниточка, а суммарная длина всех ниточек была минимальна. формат входного файла в первой строке входного файла input. in записано число n – количество гвоздиков (2 ≤ n ≤ 100). в следующей строке записано n чисел -координаты всех гвоздиков (неотрицательные целые числа,не превосходящие 10000). формат выходного файла в выходной файл output. out нужно вывести единственное число -минимальную суммарную длину всех ниточек. примеры: input. in output. out 5 4 10 0 12 2 6
//Если программа не запускается, то обновите версию
begin
var n := ReadInteger('n =');
var a := ReadArrInteger('Массив', n);
a.Sort;
// Println(a);
var b := ArrFill(n + 1, 0);
b[0] := 0;
b[1] := Maxint;
for var i := 2 to n do
b[i] := min(b[i - 1], b[i - 2]) + abs(a[i - 1] - a[i - 2]);
// Println(b);
WriteLn(b[n]);
end.