pascal问题（数组做）
答案:1 悬赏:0 手机版
解决时间 2021-03-23 19:11
- 提问者网友：你挡着我发光了
- 2021-03-23 09:17
pascal问题（数组做）
最佳答案
- 五星知识达人网友：骨子里都是戏
- 2021-03-23 10:55
var
n,a,b,k:integer;
i,j,t:integer;
x:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do read(x[i]); readln;
readln(a,b,k);
for i:=a to b-1 do
for j:=a to b+a-1-i do
if x[j]
writeln(x[a-1+k]);
end.
n,a,b,k:integer;
i,j,t:integer;
x:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do read(x[i]); readln;
readln(a,b,k);
for i:=a to b-1 do
for j:=a to b+a-1-i do
if x[j]
writeln(x[a-1+k]);
end.
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯