2вариант.1)перевести числа в десятичную систему счисления: а)1001101, 11111 2

а)77

б)31 (расставляешь над цифрами степень и считаешь например 2^6*1=64 также и в (а))

Program zadacha; const n = 10; var a: array [1..n] of integer; i, b: integer; begin writeln('введите через пробел ', n, ' чисел'); for i : = 1 to n do read(a[i]); b : = 0; for i : = 1 to n do if a[i] < 0 then b : = b + 1; if b > = 2 then begin for i : = 1 to n do if a[i] < 0 then a[i] : = a[i] - 2; for i : = 1 to n do write(a[i], ' '); end else begin b : = 1; for i : = 1 to n do if a[i] < a[b] then b : = i; writeln('номер первого минимального элемента массива - ', b); end; readln; end.

N=2^i где n-мощность алфавита, 2-основание(сколькими символами кодируется символ), i-разрядность(длина числовой строки). чтобы узнать, достаточно ли мощности алфавита для кодирования, нужно сравнить данную мощность с количеством букв в алфавите. пример на : n-32, а количество наших букв равно 33. следовательно, нужно взять большую разрядность - не 5, а 6. тогда мы получаем n-64, чего хватает не только на обозначение букв, но и для знаков препинания. если вы имели в виду код ascii, то прогоните по выделенному алгоритму.