Перестановка У вас есть массив чисел длиною "N". Нужно найти следующую перестановку массива. Ниже приведены несколько примеров для перестановка массива.

1,2,3 → 1,3,2

3,2,1 → 1,2,3

1,1,5 → 1,5,1

Входные данные:

(1 ≤ n ≤ 10000), где каждый элемент в массиве в промежутке (-10000 ≤ a[i] ≤ 10000)

Выходные данные:

Нужно найти следующую перестановку массива.

Пример 1
Ввод:
8
71 99 1 1 81 25 36 92

Вывод:
71 99 1 1 81 25 92 36
Пример 2
Ввод:
7
4 66 69 98 12 80 56

Вывод:
4 66 69 98 56 12 80
Пример 3
Ввод:
6
95 57 99 22 27 32

Вывод:
95 57 99 22 32 27

в условии не указано но для кодирования используется фраза "в памяти " при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.

а для расшифровки эти коды нужно вычитать, получаем

в   п   а   м   я

3   17   1 14 33

п   щ     о     я     к

17 27   16   33   17

-

3   17   1     14   33

14 10 15   19     17

м   и   н     с       к

н     щ     ё   п

15   27   7     17

-

3     17   1     14 

12   10   26   3

к     и     е     в

var a: integer;

begin

    read(a);

    a: =a*a;

    a: = a*a;

    writeln(a);

end.

блок смемы не умею

var i: integer

s,n: real;

begin

  repeat

      read(n);

      if n> 0 then s: =s+n

  until n=0;

  writeln(s);

end.

var a,s: real;

i: integer;

begin

  read(a);

  repeat

      i: =i+1;

      s: =s+1/i

  until s> a;

  writeln(i,s);

end.

зеркало, весло, начало, одеяло, масло, крыло, дупло