Студенты пришли на занятия в большую аудиторию и все сели на какие-то места первого ряда аудитории. пришедший преподаватель объявил, что сейчас состоится контрольная работа, и решил пересадить студентов так, чтобы никакие два студента не сидели на двух подряд идущих местах (чтобы между любыми двумя студентами всегда было как минимум одно свободное место). преподавателю пересадить минимальное число студентов, чтобы достичь нужного результата.входные данныесначала вводится натуральное число n — количество мест в первом ряду аудитории, а затем число k — количество студентов. далее в порядке возрастания перечислены номера мест, на которые студенты сели изначально (все места пронумерованы числами от 1 до n).1 ≤ k ≤ 1000, 2k–1 ≤ n ≤ 109.выходные данныевыведите одно число — минимальное количество студентов, которых придется пересадить.решение для n < = 15 будет набирать 30 , для n < = 1000 будет набирать 60 .
begin
var s:=ReadLines('in.txt').ToArray;
var n:=StrToInt(s[0]);
var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray;
var f:=OpenWrite('out.txt');
Writeln(f,n,' - (кол-во чисел)');
foreach var e in a do Write(f,e,' '); Writeln(f);
Writeln(f,'Среднее значение четных ',
a.Where(x->x.IsEven).Average);
Writeln(f,'Среднее значение нечетных ',
a.Where(x->x.IsOdd).Average);
f.Close
end.
Файлы in.txt и out.txt находятся во вложении.
Содержимое файла out.txt:
15 - (кол-во чисел)
-22 49 33 47 -10 -1 20 -18 2 21 2 -25 21 -47 -36
Среднее значение четных -8.85714285714286
Среднее значение нечетных 12.25