Дан одномерный массив, который содержит не более 60 символов, которые образуют слова, разделенные пробелом. Заменить слово «mama» на слово «ded». Написать программу в паскале ABC. Заранее спасибо!!!

Тем не менее, этот способ лучше моего захода в лоб.

главное, что вывод правильный, а способы пусть будут разными, сама не очень понимаю. преподавательница походу скачала задания из инета, я нашла где - все точь-в-точь. Сама объяснила только как ввести массивы и все, а все операции нам приходится придумывать самим или прибегать к помощи инета

кроме этого задания надо еще решить 2 задачи по одномерному массиву и 3 - по двумерному, но "денег" нет :)

Это хорошо, что нет. Сами решайте.

решаю, куда деваться

//PascalABC.NET 3.2 сборка 1318Var  s:array[1..60] of char;  i,j,len:integer;beginlen:=60;for i:=1 to 60 doread(s[i]);i:=1;while(i<=len-3) dobegin  if (s[i]='m') and (s[i+1]='a') and (s[i+2]='m') and (s[i+3]='a') then    begin      s[i]:='d';      s[i+1]:='e';      s[i+2]:='d';      for j:=i+3 to len-1 do        s[j]:=s[j+1];      dec(len);    end;  inc(i);end;for i:=1 to len dowrite(s[i]);end.

Программа с массивом (хотя он тут и не нужен):var a:array[1..60] of char;st:string; i,p:integer;beginwriteln('Введите массив символов:');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