Question

Дан массив из N целочисленных элементов. найти максимальное количество подряд идущих нулевых элементов. Гарантируется, что в массиве есть хотябы одна пара рядом стоящих нулевых элементов

Answer 1

PascalABC.NET 3.4

begin
  var n := ReadInteger('n=');
  var a := ArrRandom(n, 0, 2); a.Println;
  var (k, km) := (0, 0);
  for var i := 0 to n-1 do
    if a[i] = 0 then
      if k = 0 then k := 1
      else k += 1
    else
      begin
      if k > km then km := k;
      k := 0
      end;
  Writeln('Максимальное количество нулей подряд равно ',km)  
end.