1101010, Pascal - rextester

1101010

{
Найти количество вхождений групп из 1 между нулями.
0 1 1 1 0 1 0 1 0 0 1 1 1 1 1 0 1
Далее найти максимально длинную цепочку единичек.
}
const  n = 30;
var
  i, k, m, max, flag : integer;
  a: array [1..n] of integer;// = (1, 1, 0, 1, 1, 1, 0, 1, 1, 1  );
begin
  for i := 1 to n do write(i:2, ' '); writeln; // строка с номерами
  for i := 1 to n do begin                     // генерим массив
      a[i] := random(2); //a[n] := 0;
      write(a[i]:2, ' ');                      // и выводим его на печать 
  end; writeln;
  k := 0;   max := 0; m := 0; flag := 0;       // переменные
  for i := 1 to n - 1 do                       // основной цикл
  begin
    if (a[i] = 0 ) and (a[i + 1] = 1) then     // если встетилось 0 1 , то flag = 1
       begin
            flag := 1;                         // flag = 1
            k := k + 1;                        // счётчик групп из "1" увелич. на 1
       end
    else if (a[i] = 1 ) and (a[i + 1] = 0) then// если 1 0 , то 
       begin
            flag := 0;                         // flag = 0
            if max < m then                    // если счётчик m > max
                 max := m;                     // то обновляем max
            m := 0;                            // не забываем обнулить счётчик
       end;
       if flag = 1 then                        // если флаг = 1 то
          m := m + 1;                          // считаем единички в группе
  end;
  if a[n] = 1 then                             // если последний символ "1", то
      k := k - 1;                              // уменьшаем кол-во групп на одну
  writeln(k, ' ', max);                        // выводим результат
end.


run \| edit \| history \| help	0