начиная со второго положительного, отправить в хвост массива .
( Новый массив не создавать ).
Есть программа,но почему-то не всегда работает правильно...
Program Lab;
Uses crt;
type arr=array[1..15] of integer;
var a:arr;
p,k,i,j,n:integer;
begin
clrscr;
writeln;
writeln('Dan odnomernij massiv celih chisel');
writeln('W massiwe wse pologitelnie element,nachinaja so wtorogo, otprawit w hwost massiwa');
writeln;
{$R+}
n:=15;
randomize;
writeln('Ishodnij massiv:');
for i:=1 to n do
begin
a[i]:=-20+random(41);
write(a[i]:4);
end;
writeln;
k:=0;
p:=0;
for i:=1 to n do
begin
if a[i]>=0 then
begin
k:=k+1;
if k>1 then
begin
p:=a[i];
for j:=i to n do
if j<>n then
a[j]:=a[j+1]
else
a[j]:=p;
i:=i-1;
end;
end;
end;
Writeln('Resultat obrabotki');
for i:=1 to n do
write(a[i]:4);
readln;
{$R-}
end.