Друзья решили зашифровать сообщения из букв, записывая вместо каждой её номер в алфавите (без пробелов) . номера букв даны в таблице: a-1 b-2 c-3 d-4 e-5 f-6 g-7 h-8 i-9 j-10 k-11 l-12 m-13 n-14 o-15 p-16 q-17 r-18 s-19 t-20 u-21 v-22 w-23 x-24 y-25 z-26 даны четыре шифровки: 16153, 20121, 13225, 3720. только одна расшифровывается из них единственным найдите её и расшифруйте.

Код прекреплен файлом. В программе существуют следующие ф-ции

fillByRandomNumbers - заполнить двумерный массив случайными числами, массив может быть размерами от 1 сроки до 10 строк и от 1 столбца до 10 столбцовshow - функция выводит в iostream размеры двумерного массива, а так же его - функция возращает коллекцию индексов столбцов, в которых было найдено самое малое значение массива (это нужно для того, что в массиве может быть несколько столбцов с одинаковым минимальным значением) - функция ищет среднее значение столбца двумерного массива по его индексуmain - основная функция программы, тут содержиться основная логика

При возникновении вопросов - пишите в комментарии.

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

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

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.