begin
var N := ReadInteger();
var a := ReadArrReal(N);
Swap(a[a.IndexMax], a[a.IndexMin]);
a.Println
end.
Первыми придумали и изобрели компьютер немцы.
Во-первых, экономия памяти.
Во-вторых, надежное хранение копий нужной информации.