Уровень - оценивание
совместная работа над интеллект-картой для лучшего
усвоения темы. для работы используйте полученные
данные мини-исследования из предыдущего .
систематизируйте информацию в виде интеллект-кар-
ты, используя сервис визуализации mіndоmо.
описание и инструкция по работе с сервисом https: //

#include <iostream>

int main()  

{

   int a, b, c, d, sum;

   char first, second;

   // Русский язык в консоли

   setlocale(LC_ALL, "Russian");

   std::cout << "Введите a: ";

   std::cin >> a;

   std::cout << "Введите b: ";

   std::cin >> b;

   std::cout << "Введите c: ";

   std::cin >> c;

   std::cout << "Введите d: ";

   std::cin >> d;

   sum = a + b; first = 'a'; second = 'b';

   if (a + c > sum) { sum = a + c; second = 'c'; }

   if (a + d > sum) { sum = a + d; second = 'd'; }

   if (b + c > sum) { sum = b + c; first = 'b'; second = 'c'; }

   if (b + d > sum) { sum = b + d; first = 'b'; second = 'd'; }

   if (c + d > sum) { sum = c + d; first = 'c'; second = 'd'; }

   std::cout << "Пара чисел с максимальной суммой - это числа " << first << " и " << second << ", их сумма равна " <<

       sum << std::endl;

   return 0;

}

В этой задаче нам нужно подсчитывать количество чисел и искать максимум среди подсчитанных количеств. Алгоритм будет такой: если очередное число равно `2`, то увеличиваем счётчик количества, если же нет, то это означает, что подпоследовательность закончилась, и надо проверять, не превзошли ли мы максимум, а потом текущий счётчик сбрасывать в `0`. И ещё нужно сделать такую проверку после цикла, поскольку последовательность может закончиться на `2`.

var a,k,max:integer;

     begin

      max:=0;

      k:=0;

      read(a);

      while a <> 0 do begin

       if a = 2

       then k := k + 1

  else begin

   if k > max then max := k;

   k := 0

  end;

 read(a);

 end;

 if k > max then max := k;

 writeln(max)

     end.