Готовые дипломные, курсовые, рефераты. Вы можете бес-платно скачать любую понравившуюся работу.
ГОТОВЫЕ РАБОТЫ
ПОХОЖИЕ ВОПРОСЫ
Сегодня примерно в 12:25 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.
Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:
И сразу же ответим на него:
После проведенного совещания с другими специалистами нашего сервиса, мы склонны пола-гать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
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.