Блок-схема во вложении. Если нужен ввод элементов массива, то непосредственно перед ромбиком с if вставить ввод x[i,j]
Ответ:
не знаю я поставил фильтр на 1-4 классы и тут вот
Маска будет следующая:"*n*s"
первой буквой n мы отсекаем summer_holidays-в нем этой буквы нет, а буквой s после n исключаем spring_weather
Var s,sw: string;
i,j,bst: integer;
begin
s:='строка для решения арба еле реестр';
bst:=1; sw:=''; write('строка для поиска - ');
writeln(s);
for i:=1 to length(s) do
begin
if (Ord(s[i])=32) then
begin
if (s[bst]=s[i-1]) then
begin
for j:=bst to i-1 do sw:=sw+s[j];
writeln('найдено слово - ',sw);
sw:='';
end;
bst:=i+1;
end;
end;
if (s[bst]=s[length(s)]) then
begin
for i:=bst to length(s) do sw:=sw+s[i];
writeln('найдено слово - ',sw);
end;
<span>end.
</span>