Подскажите как это решить. Есть вариант , но я не уверен ,что он правильный...

Question

Информатика: Подскажите как это решить. Есть вариант , но я не уверен ,что он правильный...

макс3096 · Accepted Answer

Программа с массивом (хотя он тут и не нужен):
var a:array[1..60] of char;
st:string; i,p:integer;
begin
writeln('Введите массив символов:');
readln(st);
writeln('Вот массив:');
for i:=1 to length(st) do
begin
a[i]:=st[i];
write(a[i]);
end;
writeln;
st:=' '+st+' ';
p:=pos(' mama ',st);
while p>0 do
begin
delete(st,p,6);
insert(' ded ',st,p);
p:=pos(' mama ',st);
end;
writeln('Измененный массив:');
for i:=1 to length(st)-2 do
begin
a[i]:=st[i+1];
write(a[i]);
end;
writeln;
end.

Пример:
Введите массив символов:
mama papa okno mama primer baba
Вот массив:
mama papa okno mama primer baba
Измененный массив:
ded papa okno ded primer baba

MOGZ ответил