Два.
124 (8) = 84 (10)
52 (16) = 82 (10)
<span>84-82 = 2</span>
1) if B: = 0 then Writeln ('Деление на нуль невозможно');
2) if a > b then max: = a else max: = b;
3) if (a>b) and (b>0) then c:=a+b else (‘no’);
4) if a < b then min := a else min := b;
5) if a > b else max: = b then max: = a;
6) if a>b and b>0 then c:=a+b ;
С) Выбрав специальную команду Отменить колонки
При перемещении формулы =A$6+$D8 из ячейки C4 в ячейку E1 она трансформируется в формулу =C$6+$D5
Var
x,max:real;
n,i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=1 to n do
begin
write('Введите число ',i,': ');
readln(x);
if x<0 then
begin
if max=0 then max:=x; // если это первое отр.число
if x>max then max:=x
end
end;
writeln('Наибольшее среди отрицательных: ',max)
<span>end.</span>