Размещено 6 лет назад по предмету Информатика от Колян2281337

вывод стандартный
вывод стандартный

Вова выиграл в олимпиадах n кубков. Каждый кубок либо золотой, либо серебряный. Все кубки расположены в ряд один за другим. Красотой расположения кубков Вова называет длину максимального подотрезка из золотых кубков. Вова хочет поменять местами не более одной пары кубков (не обязательно соседних) так, чтобы сделать расположение кубков максимально красивым — максимизировать длину наибольшего подотрезка из золотых кубков. Помогите Вове! Сообщите, какую максимальную длину наибольшего подотрезка из золотых кубков он может получить, поменяв местами не более одной пары кубков. Входные данные Первая строка содержит число n (2≤n≤105) — количество выигранных Вовой кубков. Вторая строка содержит последовательность из n символов G и S. Если i-й символ равен G, то i-й кубок золотой, иначе — серебряный. Выходные данные В единственной строке выведите максимальную длину наибольшего подотрезка из золотых кубков, которую Вова может получить, поменяв местами не более одной пары кубков.

тесты:
ввод:
10
GGGSGGGSGG

вывод:
7

Ответ на вопрос

Ответ на вопрос дан srzontmp

Если будете сдавать в тестирующей системе, то вместо 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;
end;
end;
if mx>mxj then k:=mx+1
else k:=mxj+1;
if k=1 then k:=0;
writeln(k);
end.
1. Ответ на вопрос
  
  Ответ на вопрос дан srzontmp
  
  var n,i,k,p,mk,mx: 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; mk:=0;
  for i:=1 to n do
  begin
  if s[i]='G' then k:=k+1
  else
  begin
  if p=1 then
  begin
  if s[i-1]='G' then
  begin
  if (k>mx) then mx:=k;
  k:=k-mk;
  mk:=k;
  end
  else
  begin
  k:=0;
  mk:=0;
  p:=0;
  end;
  end
  else
  if k>0 then
  begin
  p:=1;
  mk:=k;
  if k>mx then mx:=k;
  end;
  end;
  end;
  k:=max(k,mx)+1;
  if k=1 then k:=0;
  writeln(k);
  end.
2. Ответ на вопрос
  
  Ответ на вопрос дан srzontmp
  
  Это исправленный вариант. В предыдущем не учитывалось, если самая длинная последовательность в конце.