Для начала нужно перевести данные числа в десятичную систему счисления.
А) 1001001(двоичная система счисления) = 2^6 + 2^3 + 2^1 = 64+8+2 = 74(десятичная)
Б) 1001100(двоичная) = 2^6 + 2^3 + 2^2 = 64+8+4 = 76( десятичная)
A<C<B
74<C<76
C = 75
2)75
Предположим, что последовательность же задана, то есть вводить ее мы не будем. Последовательность представляет собой массив чисел а.
n:=1; k:=0;
for i:=1 to 100 do if (a[i]<0) then k:=k+1; проверяем наличие отрицательных
if (k=0) then writeln("Отрицательных нет.") else begin
for i:=1 to 100 do if (a[i]<0) then n:=a[i]; находим хотя бы один отрицательный
for i:=1 to 100 do if ((a[i]<0) AND (a[i]>n) then n:=a[i]; находим наибольший отрицательный
writeln("Наибольшее из отрицательных чисел данной последовательности - ",n);
end;
end.