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

@Calipso747 · Регистрация: 12.02.2015

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

В одномерном массиве все отрицательные элементы переместить в начало массива, а остальные-в конец с сохранением порядка следования. Дополнительный массив заводить не разрешается.

@JuriiMW · 18.02.2015, 07:19

Pascal

const
  N = 20;
var
  A : array [1..N] of Integer;
  i, t : Integer;
begin
  Randomize; Write('A ='); for i := 1 to N do begin A[i] := Random(18)-9; Write(A[i]:3); end; WriteLn;
  i := 1; while i <= N do if (A[i] < 0) and (i > 1) and (A[i-1] >= 0) then begin Dec(i); t := A[i]; A[i] := A[i+1]; A[i+1] := t; end else Inc(i);
  Write('A ='); for i := 1 to N do Write(A[i]:3); WriteLn;
end.

@APALoff · 18.02.2015, 09:21

Не по теме:

JuriiMW, а почему тогда не так:

Pascal

1
2
3

...
Randomize; Write('A ='); for i := 1 to N do begin A[i] := Random(18)-9; Write(A[i]:3); end; WriteLn; i := 1; while i <= N do if (A[i] < 0) and (i > 1) and (A[i-1] >= 0) then begin Dec(i); t := A[i]; A[i] := A[i+1]; A[i+1] := t; end else Inc(i); Write('A ='); for i := 1 to N do Write(A[i]:3); WriteLn;
...

В том смысле, что есть ли смысл сжимать код до нечитаемого состояния?

@JuriiMW · 18.02.2015, 10:15

APALoff, три действия — три строки:
начальное заполнение и вывод
сортировка
результат

@APALoff · 18.02.2015, 10:18

JuriiMW, т.е. считаешь это правильно - писать все "кучей" без структуризации? Это "индусский" метод написания.

@Calipso747 0 / 0 / 0 Регистрация: 12.02.2015 Сообщений: 27
		1
	В одномерном массиве все отрицательные элементы переместить в начало, а остальные-в конец 17.02.2015, 22:52. Показов 1086. Ответов 4 Метки нет (Все метки) В одномерном массиве все отрицательные элементы переместить в начало массива, а остальные-в конец с сохранением порядка следования. Дополнительный массив заводить не разрешается. 0

@JuriiMW 5079 / 2651 / 2349 Регистрация: 10.12.2014 Сообщений: 10,028
	18.02.2015, 10:15	4
	APALoff, три действия — три строки: начальное заполнение и вывод сортировка результат 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	18.02.2015, 10:18	5
	JuriiMW, т.е. считаешь это правильно - писать все "кучей" без структуризации? Это "индусский" метод написания. 0