begin
var N := ReadInteger();
var a := ReadArrReal(N);
Swap(a[a.IndexMax], a[a.IndexMin]);
a.Println
end.
Утилиты - программы, которые обычно не необходимы для работы компьютера, но способны улучшить его работу в некоторых аспектах. Например, CCleaner очищает жёсткий диск от ставших ненужными файлов, а System Explorer позволяет приостанавливать программы.
10 Кбайт = 10 × 1024 байт = 10240 байт.
При длине сообщения 20480 символов на 1 символ приходится 10240 / 20480 = 0.5 байта = 0.5 × 8 = 4 бита.
Следовательно мощность алфавита составит 2⁴ = 16 символов.
Алг
нач
цел n, a, Max
вывод "n = "
ввод n
ввод Max
нц для n от 1 до n-1
ввод a
если a > Max то Max:=a
всё
кц
вывод "Max = ", Max
кон