Где ошибка в коде?

Question

[ReplIT]

Подскажите где ошибка в коде:

var
  i, n, m, k, t: Integer;
  a: array [1..9] of Integer;
begin
  Read(n);
  for i:=1 to n do begin
    Read(t);
    case t in
      1..36: a[1+(t-1) div 4]:=1;
      37..54: a[(56-t) div 2]:=1;
    end;
  end;
  for i:=1 to 9 do begin
    if a[i]=0 then Inc(k) else k:=0;
    if m<k then m:=k;
  end;
  WriteLn(m);
end.

Answer 1

[SagePtr]

Как минимум, не указано, что именно этот код должен делать. А без этого указания он похож на какую-то чёрную магию. Особенно непонятно, почему именно 1..36, почему 37..54, все подобные значения крайне желательно выносить в константы.
Переменные k и m тоже совершенно непонятно, что делают и зачем они введены, более того, они даже и не инициализированы!

Comments

[ReplIT]

Вот условие задачи:

В плацкартном вагоне 54 места, пронумерованных числами от 1 до 54. Вагон разбит
на 9 купе. Первые 36 мест расположены по левую сторону от прохода, места 1–4 находятся
в первом купе, места 5–8 – во втором и т. д. В девятом купе находятся места с номерами 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 боковых места) в этом вагоне.

[Владислав Лысков]

ReplIT,

Группа школьников едет на олимпиаду и будет всю дорогу крутить спиннеры.

на этом моменте прям в голос :)