1. ключ шифрования неизвестен. найдите исходное сообщение по шифртексту «ababbaaabbbbaaaaaaabaaaaabbaabababa». 2. ключ шифрования неизвестен. найдите исходное сообщение по шифртексту «bbaaaabaabbbaaabaaaabaaabaaabaaabababaab».

Var   m,n,i,j,max,min,imx,imn,jmn,jmx,k,p: integer;   s: real;   a: array[,]of integer; begin write('число строк: '); readln(m); write('число столбцов: '); readln(n); setlength(a,m+1,n+1); for i: =1 to m do   begin     writeln('вводите элементы строки ',i,' по одному');   for j: =1 to n do    readln(a[i,j]);   end; min: =a[1,1]; max: =a[1,1]; imn: =1; jmn: =1; imx: =1; jmx: =1; for i: =1 to m do   for j: =1 to n do     begin     if a[i,j]< min then       begin       min: =a[i,j];       imn: =i;       jmn: =j;       end;     if a[i,j]> max then       begin       max: =a[i,j];       imx: =i;       jmx: =j;       end;       end; p: =a[imn,jmn]; a[imn,jmn]: =a[imx,jmx]; a[imx,jmx]: =p; writeln('измененный массив: '); for i: =1 to m do   begin   for j: =1 to n do    write(a[i,j]: 5);   writeln;   end; write('введите номер строки: '); readln(i); for j: =1 to n do   if a[i,j]< 0 then       begin       s: =s+a[i,j];       k: =k+1;       end; writeln('ср.ариф. отр.чисел в строке: ',s/k);   end.