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

@NS For · Регистрация: 08.12.2014

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

Дан одномерный массив целых чисел. Переставить элементы в массиве таким образом, чтобы сначала следовали все отрицательные числа, А ПОТОМ ВСЕ ОСТАЛЬНЫЕ.
Примечание.
1. Не использовать другой массив.
2. Сохранить порядок следования элементов.
Заранее спасибо!!!

@vint-81 · 12.12.2014, 16:20

Pascal

const n=10;
var a:array[1..n] of integer;
    i,j:integer;
begin
 randomize;
 writeln('A:');
 for i:=1 to n do
  begin
   a[i]:=-10+random(21);
   write(a[i]:4)
  end;
 writeln; 
 for i:=1 to n do
  for j:=1 to n-i do
   if (a[j]>=0)and(a[j+1]<0) 
    then
     begin
      a[j]:=a[j]+a[j+1];
      a[j+1]:=a[j]-a[j+1];
      a[j]:=a[j]-a[j+1]
     end;
  writeln('A'':');   
  for i:=1 to n do write(a[i]:4)
end.

@Joy · 12.12.2014, 16:34

отсюда:Описать процедуру, по которой все положительные элементы одномерного массива размещаются перед отрицательными

Pascal

const n=10;
var
  a:array[1..n] of integer;
  i, j, T:integer;
begin
  write('заполните массив:');
  for i:=1 to n do read(a[i]);
   For i := 1 To n Do
     For j := n-1 DownTo i Do
        If (a[j+1] * a[j] < 0) and (a[j] > 0) Then Begin
          T := a[j+1]; a[j+1] := a[j]; a[j] := T
        End;
   for i:=1 to n do write(a[i]:5);
end.

@vint-81 · 12.12.2014, 16:46

не по теме:
Joy, те же яйца только в профиль©

(imxo)

@Joy · 12.12.2014, 16:57

да еще и накосячил, прочитал неверно условие.

Pascal

const n=10;
var
  a:array[1..n] of integer;
  i, j, T:integer;
begin
  write('заполните массив:');
  for i:=1 to n do read(a[i]);
   For i := 1 To n Do
     For j := n-1 DownTo i Do
        If (a[j+1] < 0) and (a[j] >= 0) Then Begin
          T := a[j+1]; a[j+1] := a[j]; a[j] := T
        End;
   for i:=1 to n do write(a[i]:5);
end.

@NS For 0 / 0 / 0 Регистрация: 08.12.2014 Сообщений: 15
		1
	Переставить элементы в массиве таким образом, чтобы сначала следовали все отрицательные числа 12.12.2014, 15:51. Показов 1446. Ответов 4 Метки нет (Все метки) Дан одномерный массив целых чисел. Переставить элементы в массиве таким образом, чтобы сначала следовали все отрицательные числа, А ПОТОМ ВСЕ ОСТАЛЬНЫЕ. Примечание. 1. Не использовать другой массив. 2. Сохранить порядок следования элементов. Заранее спасибо!!! 0

@vint-81 охотник 1011 / 535 / 650 Регистрация: 29.09.2014 Сообщений: 1,083
	12.12.2014, 16:46	4
	не по теме: Joy, те же яйца только в профиль©(imxo) 1

Опции темы

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

Решение