Получить новый массив, в котором сначала расположены отрицательные, а затем положительные элементы исходного

@locusman · Регистрация: 01.04.2015

Даны два массива A и B размера 5. Получить новый массив, в котором сначала расположены отрицательные, а затем положительные эл-ты(не использовать сортировку).

@Puporev · 20.06.2015, 13:31

Сообщение от locusman

сначала расположены отрицательные, а затем положительные эл-ты

А если есть нули, то куда их?

Добавлено через 4 минуты
Вообще это можно сделать по разному, например так.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const n=5;
var a,b,c:array[1..2*n] of integer;
    m,i,j:integer;
begin
randomize;
Label1.Caption:='';
Label2.Caption:='';
Label3.Caption:='';
for i:=1 to n do
 begin
  a[i]:=-10+random(21);
  Label1.Caption:=Label1.Caption+'  '+inttostr(a[i]);
  b[i]:=-10+random(21);
  Label2.Caption:=Label2.Caption+'  '+inttostr(b[i]);
 end;
m:=0;
for i:=1 to n do
 begin
  if a[i]<0 then
   begin
    m:=m+1;
    c[m]:=a[i];
   end;
  if b[i]<0 then
   begin
    m:=m+1;
    c[m]:=b[i];
   end;
  end;
for i:=1 to n do
 begin
  if a[i]>0 then
   begin
    m:=m+1;
    c[m]:=a[i];
   end;
  if b[i]>0 then
   begin
    m:=m+1;
    c[m]:=b[i];
   end;
  end;
for i:=1 to m do
Label3.Caption:=Label3.Caption+'  '+inttostr(c[i]);
end;

@locusman · 20.06.2015, 13:40 **[ТС]**

Спасибо большое.
Данный вариант подходит.

@locusman 14 / 14 / 0 Регистрация: 01.04.2015 Сообщений: 96
		1
	Получить новый массив, в котором сначала расположены отрицательные, а затем положительные элементы исходного 20.06.2015, 13:13. Показов 1683. Ответов 2 Метки нет (Все метки) Даны два массива A и B размера 5. Получить новый массив, в котором сначала расположены отрицательные, а затем положительные эл-ты(не использовать сортировку). 0

@locusman 14 / 14 / 0 Регистрация: 01.04.2015 Сообщений: 96
	20.06.2015, 13:40 [ТС]	3
	Спасибо большое. Данный вариант подходит. 0

Опции темы

Получить новый массив, в котором сначала расположены отрицательные, а затем положительные элементы исходного

Решение