Вариант 78
2. Найти ключи и получить открытый текст фразы
"+лж1,тоуъ8м870ш8тое0",
если известно, что был использован аффинный шифр с модулем 55, и стали известны следующие символы открытого
текста:
"**чн**+**ой***"
3. Найти ключ и получить открытый текст фразы
"с.+я+быо+лче+ьнго.др",
если известно, что был использован перестановочный шифр с длиной блока 5, и стали известны следующие символы
открытого текста:
"чень+"
4. Найти ключ и получить открытый текст фразы
"о+пнзд+ее+онпвытус+ил",
если известно, что был использован перестановочный шифр с длиной блока 3
5. Дешифровать сообщение
"и5вд806"щ:",
если известно, что была использована SP-сеть (Рис. 1) c длиной блока 5, подстановкой из задачи 2, и перестановкой из
задачи 3.
6. Дешифровать сообщение
"0юi3iцщ?дй(!!3"ъ",
если известно, что был использован шифр Файстеля с длиной блока 8 и ключами:
k1=14, k2=6, k3=16, P=4,2,3,1,
Шифр Файстеля приведен на Рис. 2.
7. Проверить постулаты Голомба для последовательности:
"000100110000000"

//Я так понял, что под порядком "неубывания" вы имеете ввиду порядок возрастания...

//Поскольку вы не указали исходный массив, я его сгенерировал, а также вывел на экран, чтобы можно было проверить результаты

const

  size = 10;

  x = -100;

  y = 100;

   

var

  arr: array[1..size] of integer;

  counter, sum, positiveNumbers, negativeNumbers: integer;

  increase: boolean;

   

begin

  randomize;

   

  counter := 0;

  sum := 0;

  positiveNumbers := 0;

  negativeNumbers := 0;

  increase := true;

   

  writeln('Массив:');

   

  for var i := 1 to size do

  begin

     arr[i] := random(x, y);

     writeln(i, ') ', arr[i]);

     

     if (arr[i] > 0) then

     begin

        counter := counter + 1;

        positiveNumbers := positiveNumbers + 1;

        sum := sum + arr[i];      

     end

     

     else

        negativeNumbers := negativeNumbers + 1;

  end;

   

  writeln();

   

  if (counter > 0) then

     writeln('1) Среднее арифметическое всех положительных элементов массива = ', sum / counter)

   

  else

     writeln('1) Положительных элементов массива не было (0)');

     

  if (positiveNumbers > negativeNumbers) then

     writeln('2) В массиве больше положительных элементов')

     

  else if (positiveNumbers = negativeNumbers) then

     writeln('2) В массиве одинаковое количество положительных и отрицательных элементов')

     

  else

     writeln('2) В массиве больше отрицательных элементов');

     

  for var j := 1 to size - 1 do

  begin

     if (arr[j] > arr[j + 1]) then

     begin

        increase := false;

        break;

     end;

  end;

   

  if (increase) then

     writeln('3) Элементы расположены в порядке возрастания')

     

  else

     writeln('3) Элементы не расположены в порядке возрастания');

end.

VAR
   ans: Real;
   n, i, j, kol: Integer;
   a: Array of Array of Real;
BEGIN
   Read(n); SetLength(a, n+1);
   For i := 1 to n do SetLength(a[i], n+1);

   For i:= 1 to n do 
      For j := 1 to n do Read(a[i][j]);

   For i := 1 to n do
      If (a[i][i] > 0) then begin Inc(kol); ans := ans + a[i][i]; End;

   If (kol > 0) then begin Writeln('Ср. ар. с гл. диагонали = ', ans / kol); kol := 0;ans := 0; End
   Else Writeln('Элементов > 0 на гл. диагонали - нет !');

   For i := 1 to n do
      If (a[i][n-i+1] > 0) then begin Inc(kol); ans := ans + a[i][n-i+1]; End;

   If (kol > 0) then Writeln('Ср. ар. с поб. диагонали = ', ans / kol)
   Else Writeln('Элементов > 0 на поб. диагонали - нет !');
END.