В плацкартном вагоне 54 места, пронумерованных числами от 1 до 54.

В плацкартном вагоне 54 места, пронумерованных числами от 1 до 54. Вагон разбит
на 9 куче. 1-ые 36 мест размещены по левую сторону от прохода, места 14 находятся
в первом купе, места 58 во втором и т. д. В девятом куче находятся места с номерами 33
36. По правую сторону от прохода находятся боковые места, их номера от 37 до 54, причём
они нумеруются в обратном направлении: места 37 и 38 находятся напротив
девятого купе, а места 53 и 54 напротив первого. Ниже приведена схема всех мест в вагоне.
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36
53 54 51 52 49 50 47 48 45 46 43 44 41 42 39 40 37 38
Группа школьников едет на олимпиаду и будет всю дорогу крутить спиннеры.
Потому им необходимо купить места в нескольких попорядку идущих куче вместе с прилегающими
боковыми местами. Даны номера свободных мест в поезде. Обусловьте, какое наивеличайшее
число попорядку идущих куче стопроцентно свободны.
Программа получает на вход число N количество свободных мест в вагоне
(0 N 54). Следующие N строк содержат номера свободных мест разные числа от 1
до 54 в случайном порядке, по одному числу в строке.
Программа обязана вывести одно целое число наибольшее число подряд идущих
свободных куче (куче 4 места слева от прохода и 2 боковых места) в этом вагоне.

Задать свой вопрос
1 ответ

// PascalABC.NET

// Версия 3.3.5 сборка 1662 (29.04.2018)


function num(n: integer): integer;
begin
  if n lt;= 36 then num := (n - 1) div 4
  else num := 8 - (n - 37) div 2
end;

begin
  var carr := ArrFill(9, 0);
  for var i := 1 to ReadInteger do carr[num(ReadInteger)] += 1; 
  
  carr.AdjacentGroup.Where(t -gt; t[0] = 6).Select(t -gt; t.Count).Max.Println;

end.


Пример:

  Ввод:

  12

  5 6 3 4 8 7 51 9 10 54 49 52

  Вывод:

   1

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт