При попадании каждой частицы на экран в протоколе фиксируются

Решение по шагам

1. 1

   Как рассуждать

   Решение. Создадим массив из 10 000 строк, каждая из которых будет представлять из себя 10 000 идущих подряд нулей. Индекс массива будет являться номером ряда, а индекс позиции символа в строке будет являться номером позиции в ряду. Считаем данные из файла, присваивая в соответствующей строке соответствующему символу единицу вместо нуля. Далее пройдём по каждой строке в массиве и, встречая символы «10», будем увеличивать значение счётчика count на единицу. Если последовательность будет прервана, значение счётчика сбрасывается. Приведём решение на языке Pascal.var i, j, n, x, y, maxlen, maxnum, count: integer; screen: array[1..10000] of string; f: text;begin assign(f,'C:\26.txt'); reset(f); readln(f, n); maxlen := 0; for i := 1 to 10000 do screen[i] := '0' * 10000; for i := 1 to n do begin readln(f, x, y); screen[x][y] := '1'; end; for i := 1 to 10000 do begin count := 0; for j := 1 to 10000 do begin if j mod 2 <> 0 then begin if (screen[i][j] = '1') and (screen[i][j + 1] = '0') then count := count + 1 else begin if count > maxlen then begin maxlen := count; maxnum := i; end; count := 0; end; end; end; end; writeln(maxlen, ' ', maxnum);end. В результате работы данного алгоритма при вводе данных из файла в условии получаем ответ — 9