Фразу на русском языке необходимо перевести на язык Pascal.ABC
1. В программе будем использовать строковые переменные А и В, в которых не более 20 символов ;
2. В программе есть массив Т из 100 символьных элементов;
3. Ввести с клавиатуры 20 элементов массива А, начиная с 1-го ;
4. Вывести в одну строку массив B, в котором 20 элементов (первый элемент имеет номер 1);
5. Пока S положителен, увеличивайте эту переменную на значение X ;
6. Соедините в одну строку через пробелы строчные переменные Name и Кlass;
7. Если число А четное, то уменьшите его в 2 раза, иначе увеличьте на 1;
8. Переменную А вычислите как случайное число из отрезка [1,100];
9. Переменную А замените суммой двух последних цифр этого числа.

PROFIT?

program lol;
var
mas:array[1..20] of integer;
max,min,i:integer;
begin
randomize;
for i:=1 to 20 do
begin
mas[i]:=random(100);
writeln('Element #',i,': ',mas[i]);
end;
writeln;
for i:=1 to 20 do if mas[i] > max then max:=mas[i];
writeln('MAX: ',max);
min:=max;
for i:=1 to 20 do if mas[i] < min then min:=mas[i];
writeln('MIN: ',min);
writeln;
for i:=1 to 20 do
if (mas[i] >= min) and (mas[i] <= max) and (mas[i] mod 5 = 0) and (mas[i] <> 0) then
writeln('Element #',i,': ', mas[i]);
readln;
end.

11110001

Объяснение:

Ближайшая степень двойки к исх.числу - 128(2^7). Чисел в двоичном представлении значит будет 8(седьмая степень двойки плюс нулевая), на 8 позиции будет 1. Вычитаем из 241 128, получаем 113. Поступаем аналогично, ближайшая степень - 64(2^6), на 7 позиции будет 1. 113-64=49. Ближайшая степень 32(2^5). на 6 позиции 1. 49-32=17. ближайшая степень 16(2^4). на 5 позиции 1. 17-16=1. ближайшая степень 1(2^0). на 1 позиции единица. Теперь выставляем единицы на нужные позиции и получаем

11110001