已知数组A[0..n-1]的元素类型为整型，请设计一个程序调整A，使其左边的所有元素小于0,右边的所有元素大于等于0 用pascal解
答案:1 悬赏:0 手机版
解决时间 2021-05-04 12:03
- 提问者网友：沉默菋噵
- 2021-05-03 17:29
已知数组A[0..n-1]的元素类型为整型，请设计一个程序调整A，使其左边的所有元素小于0,右边的所有元素大于等于0 用pascal解
最佳答案
- 五星知识达人网友：鱼芗
- 2021-05-03 18:16
VAR
a,b:array[0..1000]of integer;
i,x,y,n:word;
BEGIN
readln(n);
for i:=0 to n-1 do
read(a[i]);
readln;
x:=0;
y:=n-1;
for i:=0 to n-1 do
if(a[i]<0)then begin
b[x]:=a[i];
inc(x);
end
else begin
b[y]:=a[i];
dec(y);
end;
for i:=0 to n-1 do
write(b[i],' ');
writeln;
readln;
END.
a,b:array[0..1000]of integer;
i,x,y,n:word;
BEGIN
readln(n);
for i:=0 to n-1 do
read(a[i]);
readln;
x:=0;
y:=n-1;
for i:=0 to n-1 do
if(a[i]<0)then begin
b[x]:=a[i];
inc(x);
end
else begin
b[y]:=a[i];
dec(y);
end;
for i:=0 to n-1 do
write(b[i],' ');
writeln;
readln;
END.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯