@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.
  • Вопрос задан
  • 222 просмотра
Пригласить эксперта
Ответы на вопрос 1
SagePtr
@SagePtr
Еда - это святое
Как минимум, не указано, что именно этот код должен делать. А без этого указания он похож на какую-то чёрную магию. Особенно непонятно, почему именно 1..36, почему 37..54, все подобные значения крайне желательно выносить в константы.
Переменные k и m тоже совершенно непонятно, что делают и зачем они введены, более того, они даже и не инициализированы!
Ответ написан
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы