Вывод стандартный вывод стандартный вова выиграл - вопрос №9586617 от erikfarzaliev 22.08.2020 18:42

Question

Информатика: Вывод стандартный вывод стандартный вова выиграл в олимпиадах n кубков. каждый кубок либо золотой, либо серебряный. все кубки расположены в ряд один за другим. красотой расположения кубков вова называет длину максимального подотрезка из золотых кубков. вова хочет поменять местами не более одной пары кубков (не обязательно соседних) так, чтобы сделать расположение кубков максимально красивым — максимизировать длину наибольшего подотрезка из золотых кубков. вове! сообщите, какую максимальную длину

erikfarzaliev · Answer

Если будете сдавать в тестирующей системе, то вместо string, лучше использовать массив char - работает быстрее.

var n,i,k,p,mx,mxj: integer;

s: array[1..100000] of char;

begin

readln(n);

for i:=1 to n do read(s[i]);

k:=0; p:=0;

mx:=0; mxj:=0;

for i:=1 to n do

begin

if s[i]='G' then k:=k+1

else

begin

if p=1 then

begin

p:=0;

if s[i-1]='G' then

if (k>mxj) then mxj:=k;

k:=0;

end

else

begin

if k>0 then p:=1;

if k>mx then mx:=k;

end;

if mx>mxj then k:=mx+1

else k:=mxj+1;

if k=1 then k:=0;

writeln(k);

end.