в начало массива, а остальные — в конец с сохранением порядка
следования. Дополнительный массив заводить не разрешается.
Сделал вот только не могу придумать как реализовать сохранения порядка чисел...(
Program rastonovka;
Const n=6; {Число элементов в массиве}
Type massiv=array[1..n] of integer; {Кол-во элементов и тип массива}
Var A,B:massiv; {Массив A,B}
i,j,k,p,s:integer;
Procedure Init_mas(Var A:massiv); {Ввод массива}
Var i:integer;
Begin
For i:=1 to n do
Begin
A[i]:=random(100)-50;
End;
End;
Procedure Print_mas(A:massiv); {Вывод массива}
Begin
For i:=1 to n do
write(A[i]:5);
writeln;
End;
Begin
Randomize;
Init_mas(A);
Print_mas(A);
j:=1;k:=n;
For i:=1 to n do
if A[i]<0 then
Begin s:=A[j];A[j]:=A[i];j:=j+1;A[i]:=s; end;
Print_mas(A);
readln;
End.
