Задача о векторах

[anna555]

Задача о векторах

помогите решить задачу,скоро сдавать,а я даже не знаю,как ее решать...
дан целочисленный вектор a(а1,а2,...,an) построить вектор b(b1,b2,...,bn)приняв в качестве первых его компонент все отрицательные компоненты вектора a(с сохранением порядка их следования)в качестве остальных положительные компоненты вектора a,также с сохранением порядка их следования.
пожалуйста помогите:tehnari_ru_121:

 

[Vladimir_S]

помогите решить задачу,скоро сдавать,а я даже не знаю,как ее решать...
дан целочисленный вектор a(а1,а2,...,an) построить вектор b(b1,b2,...,bn)приняв в качестве первых его компонент все отрицательные компоненты вектора a(с сохранением порядка их следования)в качестве остальных положительные компоненты вектора a,также с сохранением порядка их следования.
пожалуйста помогите:tehnari_ru_121:

Аня, прежде всего - у нас не принято цепляться к чужим темам. Создавайте свои.
Вот Вам решение Вашей задачки:

CONST
 N=16;
VAR
 A,B:Array[1..N] of Integer;
 i,j,N1,N2:Byte;
BEGIN
 Randomize;
 For i:=1 to N do
  Begin
   Repeat
    A[i]:=50-Random(100);
   Until A[i]<>0;
   Write(A[i]:4);
  End;
 Writeln;
 N1:=0;
 For i:=1 to N do
  if A[i]<0 then
   begin
    Inc(N1);
    B[N1]:=A[i];
   end;
 N2:=0;
 For i:=1 to N do
  if A[i]>0 then
   begin
    Inc(N2);
    B[N1+N2]:=A[i];
   end;
 For i:=1 to N do write(B[i]:4);
 Readln;
END.