Решите задачки в Паскале, пожалуйста.1)Дан массив, отсортировать все его элементы до

Решите задачки в Паскале, пожалуйста.
1)Дан массив, отсортировать все его элементы до максимального по возрастанию.
2)Дан массив, отсортировать все его элементы от малого по возрастанию.
2)Дан массив, отсортировать все его элементы от наибольшего до малого по убыванию.

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

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var (imin,imax):=(a.IndexMin,a.IndexMax);
  Print('1:'); a?[:imax].OrderBy(t-gt;t).Println;
  Print('2:'); a?[:imin].OrderBy(t-gt;t).Println;
  Print('3:');
  if imaxgt;imin then Swap(imax,imin);
  a?[imax+1:imin].OrderByDescending(t-gt;t).Println
end.

Пример
n= 13
-18 42 -49 -40 -28 15 4 48 -37 23 44 27 21
1: -49 -40 -28 -18 4 15 42
2: -18 42
3: 15 4 -28 -40
Регина Станева
Извини, я в 8 классе и такового не понимаю)) мне необходимо способом пузырька
Александр Рангелов
виноват, забыл
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт