Переместить в начало все отрицательные элементы списка, сохраняя их порядок

@glupec · Регистрация: 28.12.2016

Студворк — интернет-сервис помощи студентам

Дан список из n целых чисел a1,a2,.,an. Переместить в начало все отрицательные элементы списка, сохраняя их порядок.

@Zwelenewskiy · 17.06.2017, 20:12

Вот такой вариант. Может, и лучше было бы вставлять искомые элементы вставлять в начало массива,но мне было лень =))

Pascal

var
  a: array of real;
  k: boolean;
 
begin
  
  var n := readinteger('Введите кол-во чисел: ');
  Setlength(a, n);  
  
  k := true;
  for var i := 0 to n - 1 do
  begin
    a[i] := readinteger('Введите ' + (i + 1) + '-й элемент массива: ' );
    if a[i] < 0
      then k := false;
  end;  
  
  if k then writeln('Отрицательных чисел нет')
  else begin
    writeln;
    for var i := 0 to n - 1 do
      if a[i] < 0
        then write(a[i], ' ');
  end;
  
  for var i := 0 to n - 1 do
    if a[i] >= 0
      then write(a[i], ' ');
  
end.

@volvo · 17.06.2017, 20:15

Список и массив - это разные вещи, если что.

@Zwelenewskiy · 17.06.2017, 20:19

volvo, блин, пропустил, что это список. Прошу прощения =)

@glupec · 17.06.2017, 20:31 **[ТС]**

А вы так обрадовали сначала(

@volvo · 17.06.2017, 20:40

В принципе, задача решается вот так:

Pascal

begin
  var L := new List<integer>(Arr(1, 2, -3, -9, -5, 8, -11, 4, 9));
  L.Println;
  L := L.OrderBy(v -> Sign(v)).ToList;
  L.Println;
end.

, поскольку OrderBy - стабильная сортировка, она не будет менять местами элементы с одинаковыми характеристиками, и достаточно упорядочить данные по знаку, тогда все отрицательные окажутся спереди, а все положительные - в конце списка.

Но сейчас опять выяснится, что это нужно сделать в стиле Турбо-Паскаля...

@glupec 0 / 0 / 0 Регистрация: 28.12.2016 Сообщений: 23
		1
	Переместить в начало все отрицательные элементы списка, сохраняя их порядок 17.06.2017, 20:02. Показов 1586. Ответов 5 Метки отрицательные, с, списки, элементы (Все метки) Дан список из n целых чисел a1,a2,.,an. Переместить в начало все отрицательные элементы списка, сохраняя их порядок. 0

@volvo Супер-модератор 32580 / 21051 / 8131 Регистрация: 22.10.2011 Сообщений: 36,323 Записей в блоге: 8
	17.06.2017, 20:15	3
	Список и массив - это разные вещи, если что. 0

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	17.06.2017, 20:19	4
	volvo, блин, пропустил, что это список. Прошу прощения =) 0

@glupec 0 / 0 / 0 Регистрация: 28.12.2016 Сообщений: 23
	17.06.2017, 20:31 [ТС]	5
	А вы так обрадовали сначала( 0

Опции темы

Переместить в начало все отрицательные элементы списка, сохраняя их порядок

Решение