Известно, что некто расположил все буквы алфавита по кругу и заменил каждую букву исходного сообщения на следущую после нее. декотируйте полученые шифровки а) об оёу й тфеб оеу б)лпоёч- еёмф гёоёч

А) на нет и суда нет; б)конец - делу венец. вот, держи: )

а) на нет и суда нет

б)конец - делу венец

Const   nn= 50; var   a: array[1..nn] of integer;   i,j,k,n: integer;   f: text; begin   write('введите количество чисел: '); read(n);   { формирование входного файла }   randomize;   assign(f,'input.txt'); rewrite(f);   for i: =1 to n do   begin k: =random(50); writeln(f,k) end;   close(f);   { чтение входного файла в массив и вывод }   reset(f);   writeln('элементы массива');   for i: =1 to n do   begin readln(f,a[i]); write(a[i]: 3) end;   close(f);   writeln;   { сортировка по возрастанию методом пузырька }   for i : = 1 to n-1 do       for j : = 1 to n-i do           if a[j] > a[j+1] then           begin k : = a[j]; a[j] : = a[j+1]; a[j+1] : = k end;   { вывод в файл в порядке возрастания }   assign(f,'output.txt');   rewrite(f);   for i: =1 to n do write(f,a[i]: 3);   writeln(f);   { вывод в файл в порядке убывания }   for i: =n downto 1 do write(f,a[i]: 3);   writeln(f);   close(f) end.   

Program odnomernui_massuv; uses crt; var a: array[1..100] of integer;       n,i,j,imin: byte;       buf: integer; begin write('размер массива от 1 до 100 n='); readln(n); //ручной ввод массива writeln('вводим элементы массива a: '); for i: =1 to n do   begin   write('a[',i,']=');   readln (a[i]);   end; //вывод массива до изменения writeln('исходный массив  a: '); for i: =1 to n do write (a[i]: 5); writeln; //поиск минимума в серии imin: =1; for i: =1 to n do if a[i]< a[imin] then imin: =i; writeln('imin=',imin); if imin> n-2 then write('элементов для сортировки нет! ') else   begin   for i: =imin+1 to n-1 do   for j: =i+1 to n do   if a[i]< a[j] then     begin       buf: =a[i];       a[i]: =a[j];       a[j]: =buf;     end;   writeln('элементы после минимального отсортированы по убыванию: ');   for i: =1 to n do   write(a[i],' ');   end; end. проверь