Предложите ещё получения строки t из s , если s := 'виртуальная реальность', t := 'тур'

429 1113 223 1716 1212 121 422 524 25

429 быть не может, т.к это значило бы, что сумма чётных равна четыре, а нечётных 29, но даже если взять 9+9+9 29 мы не получим

1113 получить тоже нельзя, т.к. сумма любого количества чётных чисел это тоже четное число

!223 быть может

1716 не может, т.к. нужно в порядке возрастания

!1212 быть может

121 не может, т.к. тут опять 2 нечётных числа, что быть не может

422 быть не может, т.к. тогда получается 4 и 22. Если 22 состоит из Зх нечётных циферблат, то она тоже была бы нечётной, но была бы меньше 20

!524 может

!25 может

Итого:4

//первая программа

var
   a:array[1..10] of integer;
   Sr, i:integer;
 begin
   Sr := 0;
   for i := 1 to 10 do
   begin
     write('a[', i, '] = ');
     readln(a[i]);
     if i mod 2 = 0 then
       Sr := Sr + a[i];
   end;
   writeln('Среднее арифметическое элементов стоящих на четных местах: ', Sr /(10 div 2));
 end.

//вторая программа

var
  a:array[1..3, 1..3] of integer;
  Pr, count, summ, i, j:integer;
begin
  pr := 1;
  summ := 0;
  count := 0;
  for i := 1 to 3 do
    for j := 1 to 3 do
    begin
      write('a[', i, ', ', j, '] = ');
      readln(a[i, j]);
      if i mod 2 = 1 then
        pr := pr * a[i, j];
      if a[i, j] < 0 then
      begin
        summ := summ + a[i, j];
        count := count + 1;
      end;
    end;
  writeln('Произведение элементов стоящих в четных строках: ', pr);
  if count <> 0 then
    writeln('Среднее арифметическое отрицательных элементов: ', summ / count)
  else
    writeln('Нет ни одного элемента отрицательного элемента');
end.
   

//третья программа

var
  s:string;
  c:char;
  i:integer;
begin
  s := 'Мадагаскар';
  writeln('Исходная строка: ');
  writeln(s);
  for i := 1 to Length(s) div 2 do
  begin
    c := s[i];
    s[i] := s[Length(s) - i + 1];
    s[Length(s) - i + 1] := c;
  end;
  writeln('Перевернутая строка:');
  writeln(s);
end.