Цитата:
2. Преобразовать массив, расположив сначала все положительные, а затем все отрицательные элементы. Порядок следования элементов одного типа не менять
|
CONST
N=10;
VAR
A:ARRAY[1..N] of INTEGER;
B:ARRAY[1..N+1] of INTEGER;
i,j,Ncur:INTEGER;
BEGIN
Randomize;
FOR i:=1 TO N DO
BEGIN
A[i]:=Random(100)-50;
B[i]:=A[i];
END;
i:=1;
Ncur:=N;
REPEAT
IF B[i]<0 THEN
BEGIN
B[N+1]:=B[i];
FOR j:=i+1 TO N+1 DO
B[j-1]:=B[j];
DEC(i);
DEC(Ncur);
END;
INC(i);
UNTIL i=Ncur+1;
FOR i:=1 TO N DO
Write(A[i]:4);
Writeln;
FOR i:=1 TO N DO
Write(B[i]:4);
Writeln;
ReadLn;
END.