Встроке символов заменить все буквы "а" на "б" (решить с составления новой строки)

PascalABC.Net

var
  str : string;
  i : integer;
begin
  write('Введите строку: ');
  readln(str);
  
  for i := 1 to length(str) do
    case str[i] of
      'а' : str[i] := 'б';
      'А' : str[i] := 'Б';
      'б' : str[i] := 'а';
      'Б' : str[i] := 'А';
    end;
  
  writeln(str);  
end.

В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.

var
  n,s,t,i:integer;
begin
  Write('Укажите количество данных: ');
  Read(n);
  Writeln('Теперь вводите данные');
  s:=0;
  for i:=1 to n do
    begin
    Read(t);
    s:=s+t
    end;
  Writeln('Средняя температура за месяц составила ',s/n:0:1)
end.

Пример решения

Укажите количество данных: 11
Теперь вводите данные
27 29 26 31 24 23 27 30 31 28 25
Средняя температура за месяц составила 27.4

ответ:Новости спорта

Спорт — это состязательная деятельность людей, осуществляемая по определенным правилам. Состязательная компонента спорта выражается в сопоставлении физических и интеллектуальных навыков и его участников. Спортом считается не только соревновательная деятельность, но также и сам процесс подготовки к ней. Целью спортивной деятельности является также желание улучшить физическое здоровье, внешний вид тела, укрепление мозговой (интеллектуальной) деятельности и получение морального удовлетворения.

Объяснение: