Программа с массивом (хотя он тут и не нужен): 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
На будущее: за программу никто писать не будет. Программа, возможно, не совершенна (т.е. по-любому, можно было сделать короче), однако работает. Написана на Pascal, тестировал в веб-среде PascalABC.
var mo,tu,we,th,fr,sa,su,a: ShortInt; var b: Real; Begin Write('Температура воздуха в Понедельник: '); Readln(mo); Write('Температура воздуха во Вторник: '); Readln(tu); Write('Температура воздуха в Среду: '); Read(we); Write('Температура воздуха в Четверг: '); Readln(th); Write('Температура воздуха в Пятницу: '); Readln(fr); Write('Температура воздуха в Субботу: '); Readln(sa); Write('Температура воздуха в Воскресенье: '); Readln(su); a:=mo+tu+we+th+fr+sa+su; b:=a/7; Write('Средняя температура воздуха: ',b:0:2,' градусов.'); 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
Программа, возможно, не совершенна (т.е. по-любому, можно было сделать короче), однако работает. Написана на Pascal, тестировал в веб-среде PascalABC.
var mo,tu,we,th,fr,sa,su,a: ShortInt;
var b: Real;
Begin
Write('Температура воздуха в Понедельник: ');
Readln(mo);
Write('Температура воздуха во Вторник: ');
Readln(tu);
Write('Температура воздуха в Среду: ');
Read(we);
Write('Температура воздуха в Четверг: ');
Readln(th);
Write('Температура воздуха в Пятницу: ');
Readln(fr);
Write('Температура воздуха в Субботу: ');
Readln(sa);
Write('Температура воздуха в Воскресенье: ');
Readln(su);
a:=mo+tu+we+th+fr+sa+su;
b:=a/7;
Write('Средняя температура воздуха: ',b:0:2,' градусов.');
End.