В восьмеричной : <span>47
В шестнадцатеричной: 27</span>
while n <= m do n := 1;
while n > m do n := 0;
write(n);
Если n <= m, то n = 1,
если n > m, то n = 0 (любое число)
При этом условные операторы использованы не будут.
Есть вариант попроще: write(ord(n <= m))
Если n <= m, то будет выведено 1 (порядковый номер true), иначе будет выведено 0 (порядковый номер false)
begin
var N := ReadInteger();
var a := ReadArrReal(N);
Swap(a[a.IndexMax], a[a.IndexMin]);
a.Println
end.
Смотри во вложении
---------------------------------------------------