даны действительные числа а1 а2 аn поменять местами 1-ый наивеличайший элемент

Даны действительные числа а1 а2 аn поменять местами 1-ый наибольший элемент с заключительным минимальным элементом

Задать свой вопрос
1 ответ
// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=Arr(3.4,2.1,2.7,5.8,4.2,2.1,5.8,3.7); a.Println;
  Swap(a[a.IndexMax],a[a.LastIndexMin]); a.Println
end.

Итог
3.4 2.1 2.7 5.8 4.2 2.1 5.8 3.7
3.4 2.1 2.7 2.1 4.2 5.8 5.8 3.7



, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт