Сортировка массива: сначала положительные числа по убыванию, потом отрицательные по возрастанию, потом нули

@Vova25super · Регистрация: 08.01.2016

Заполнить массив рандомными числами от -100 включительно до 100 включительно. Отсортировать так: сначала идут положительные числа по убыванию, потом отрицательные по возрастанию, потом нули, если есть.
Пример:
Было: 20 -90 15 -34 10 0
Стало: 20 15 10 -90 -34 0

@JuriiMW · 25.02.2016, 08:08

Pascal

begin
  var a := ArrRandom(ReadLnInteger('n ='), -100, +100);
  var c := a.Where(i -> i < 0).Sorted;
  var d := a.Where(i -> i = 0);
  WriteLn('Массив a:', NewLine, a, NewLine, 'Отсортированный массив:', NewLine,
    a.Where(i -> i > 0).Sorted.Reverse.Concat(c).Concat(d));
end.

@volvo · 25.02.2016, 12:56

Я бы сделал вот так:

Pascal

type MySort = class(IComparer<integer>)
public
  function Compare(a, b : integer) : integer := (a * b < 0 ? b - a : abs(b) - abs(a));
end;
begin
  var a := ArrRandom(ReadLnInteger('n ='), -100, +100);
  WriteLn('Массив a:', NewLine, a, NewLine, 'Отсортированный массив:', NewLine, a.OrderBy(v -> v, new MySort));
end.

@Vova25super 2 / 2 / 0 Регистрация: 08.01.2016 Сообщений: 42
		1
	Сортировка массива: сначала положительные числа по убыванию, потом отрицательные по возрастанию, потом нули 24.02.2016, 18:30. Показов 3165. Ответов 2 Метки c, массив pascal, с, сортировка, числа (Все метки) Заполнить массив рандомными числами от -100 включительно до 100 включительно. Отсортировать так: сначала идут положительные числа по убыванию, потом отрицательные по возрастанию, потом нули, если есть. Пример: Было: 20 -90 15 -34 10 0 Стало: 20 15 10 -90 -34 0 0

Опции темы

Сортировка массива: сначала положительные числа по убыванию, потом отрицательные по возрастанию, потом нули

Решение