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

//pascalabc.net 3.2 сборка 1318 var   s: array[1..60] of char;   i,j,len: integer; begin len: =60; for i: =1 to 60 do read(s[i]); i: =1; while(i< =len-3) do begin   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 do write(s[i]); end.

Программа с массивом (хотя он тут и не нужен): 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

program prim;

var i,x : integer;

begin

x: =1;

for i: =1 to 5 do

begin write (x,'   ');

x: =x+2;

end;

end. 

1)

var

a: array [1..5,1..10] of integer;

i,j,p: integer;

begin

for i: =1 to 5 do 

begin

for j: =1 to 10 do

begin

a[i,j]: =random(50)+1;

write(a[i,j]: 3);

end;

writeln;

end;

writeln('меняем 1 и последнюю строки');

for j: =1 to 10 do

begin

p: =a[1,j];

a[1,j]: =a[5,j];

a[5,j]: =p;

end;

for i: =1 to 5 do 

begin

for j: =1 to 10 do

write(a[i,j]: 3);

writeln;

end;

end.

2)

var a: array [1..5, 1..10] of integer; i, j: integer; p: real;

begin for i : = 1 to 5 do begin for j : = 1 to 10 do begin a[i, j] : = random(50) + 1; write(a[i, j]: 3); end; writeln; end; writeln('произведения элементов строк'); for i : = 1 to 5 do begin p : = 1; for j : = 1 to 10 do p : = p * a[i, j]; writeln(p: 25: 0); end; end.