{* Задача 212 *}

Unit ZADACH212;
Interface
Implementation
Begin
 writeln('Определить самую длинную последовательность подряд идущих нулей в заданном одномерном массиве');
End.

Program S2_Z4;

Uses zadach212.pas; {* Эту строку можно удалить *}
Type {* Создание новых типов данных *}
  m = Array[1..100] Of integer;
Var {* Необходимые переменные *}
  A                : m;
Procedure vvod(m : integer;
Var {* В работе нам потребуются переменные: *}
  x : m);
Var {* Необходимые переменные *}
  i                 : integer;
For i := 1 To m Do; {* Увеличиваем i от 1 до m с шагом 1 *}
Procedure moped(m : integer;
Var {* В работе нам потребуются переменные: *}
  x : m);
Var {* В работе нам потребуются переменные: *}
  i : integer;
  k : integer;
  n : integer;
Begin
  k := 0;
  n := 0;
  For i := 1 To m Do {* Переменная i увеличивается с 1 до m *}
    If x[i] = 0 Then
      k := k + 1
    Else Begin
      If x[i - 1] = 0 Then
        If k > n Then
          n := k;
  k := 0;
End;
If k > n Then
  writeln('самая большая последовательность нулей состовляет ', k)
Else writeln('самая большая последовательность нулей состовляет ', n);
  End;
Begin
vvod(20, A);
moped(20, A);
End....