free pascal 高手帮忙解决一下一个问题

发布网友发布时间：2024-10-27 22:32

共1个回答

热心网友时间：2024-10-27 22:58

应该是这样，不对在说
program fsd;
var
a,b:array[1..100] of integer;
n,i,x,y,t,j,k:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
read(x,y);
t:=1;
for j:=1 to n do begin
k:=j;
if a[j]=x then while k<=n do if a[k]<>y then begin
b[t]:=a[k];
inc(t);
inc(k);
end else begin b[t]:=a[k];inc(t);break;end;
end;
read(x,y);
for j:=1 to n do begin
k:=j;
if a[j]=x then while k<=n do if a[k]<>y then begin
b[t]:=a[k];
inc(t);
inc(k);
end else begin b[t]:=a[k];inc(t);break;end;
end;
for i:=1 to t-1 do write(b[i],' ');
end.

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com