Составьте программку, которая наполняет массив a [1..10] случайными целыми числами в

Составьте программку, которая наполняет массив a [1..10] случайными целыми числами в диапозоне от 1 до 100, затем меняет местами наибольший и малый элементы. Выведите на экран начальный и приобретенный массивы.

Задать свой вопрос
1 ответ
// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программка не работает, обновите её версию!
begin
  var a:=ArrRandom(10,1,100); a.Println;
  var imax:=a.IndexMax;
  var imin:=a.IndexMin;
  Swap(a[imax],a[imin]); a.Println
end.

Пример
65 47 11 68 51 83 90 73 4 43
65 47 11 68 51 83 4 73 90 43
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт