Ну код Цезаря(классический) это сдвиг на 3 буквы по клавиатуре. Тогда будет: информатика - лрчсупгхлнг компьютер - нсптябхзу
Для кода Виженера же нужно помимо слова еще и ключ. Пишется слово, например attention вводится ключ lemon дальше ключ без пробелов становится по размеру слова, которое мы загадываем дальше по таблице составляется слово ну более-менее пытался объяснить что из себя это представляет ну раз ключ не дан, тогда вариант а: вводимое слово "человек", ключ "алгоритм" тогда человек - чроэтнэ вариант б: вводимое слово "алгоритм", ключ "человек" тогда алгоритм - чроэтнэд
Const n=20; var a,b:array[1..n] of integer; i,j,k,m,c:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(51)-25; write(a[i]:5); end; writeln; j:=0; for i:=1 to n do if a[i]<0 then begin j:=j+1; b[j]:=a[i]; end; m:=j; for k := 1 to m-1 do for i := 1 to m-k do if (b[i]<b[i+1]) then begin c:=b[i]; b[i]:=b[i+1]; b[i+1]:=c; end; writeln('Вс массив:'); for i:=1 to m do write(b[i]:5); writeln; j:=0; for i:=1 to n do if a[i]<0 then begin j:=j+1; a[i]:=b[j]; end; writeln('Полученный массив:'); for i:=1 to n do write(a[i]:5); writeln; end.