Задание:
ЗадачаВ. «Гвоздики» На прямой дощечке вбиты гвоздики. Любые два гвоздика можно соединить ниточкой. Требуется соединить какие-то пары гвоздиков ниточками так, чтобы к каждому гвоздику была привязана хотя бы одна ниточка, а суммарная длина всех ниточек была минимальна. Формат входного файла В первой строке входного файла INPUT. IN записано число N – количество гвоздиков (2 ≤ N ≤ 100). В следующей строке записано N чисел — координаты всех гвоздиков (неотрицательные целые числа, не превосходящие 10000). Формат выходного файла В выходной файл OUTPUT. OUT нужно вывести единственное число — минимальную суммарную длину всех ниточек. Примеры: INPUT. IN OUTPUT. OUT 5 4 10 0 12 2 6
Решение:
Function min (a,b: integer): integer; begin if aa[j] thenSwap (a[i],a[j]); a[0]: =Maxint; a[-1]: =0; for i: =1 to n do b[i]: =min (b[i-1],b[i-2])+abs (a[i]-a[i-1]); WriteLn (b[n]); close (input); close (output); end.
Знаете другой ответ?