3. У списку [4, 6, 13, 9, 5, 16, 11] знайти числа, більші 6, збільшити їх удвічі, вивести на екран список складений з отриманих чисел.

Идем с конца.

Из нечетных вычли 1 (получилось четное число), к четным прибавили 1 (нечётное). Отменяем это: к четным прибавляем 1, от нечётных отнимаем.
3216 ->  2307

Третья цифра была сдвинута на 3, при этом поменяв свою четность. 2 - четное число, значит, исходное число было нечётным и было сдвинуто на 3 влево. Отменяем, сдвигаем на 3 вправо: 2 -> 3 -> 4 -> 5. 

Вторая цифра была сдвинута на 2, чётность не меняла, была и осталась нечётной. Она была сдвинута на 2 разряда влево, нам надо сдвинуть на 2 вправо: 3 -> 4 -> 5.

Первая цифра сейчас чётная (0), значит, была нечётной, её сдвинули на 1 влево. Сдвигаем на 1 вправо: 0 -> 1.

Нулевая цифра была сдвинута на 0 разрядов, поэтому осталась без изменений. Это цифра 7.

Искомый пароль: 5517.

(Ну и на всякий случай: не надо ставить такие простые пароли, не будьте, как Вася!)

// PascalABC.NET 3.2, сборка 1492 от 03.07.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a:=(a.Where(x->x<0)+a.Where(x->x>=0)).ToArray; a.Println;
  Writeln('Номер максимального элемента: ',a.IndexMax+1);
  Writeln('Среднее арифметическое нечетных по порядку: ',
      a.Where((x,i)->i.IsEven).Average)
end.

Пример
n= 15
18 -24 31 -4 -13 -45 24 -25 34 -42 -6 36 -50 40 -15
-24 -4 -13 -45 -25 -42 -6 -50 -15 18 31 24 34 36 40
Номер максимального элемента: 15
Среднее арифметическое нечетных по порядку: 2.75