不是VIP会员,不能显示答案

题目解答

题目:
program test5;
type
arr=array[1..8] of integer;
var
a:arr; i,n:integer;
procedure select(var b:arr; var n:integer);
var
i,j:integer;
begin
i:=0;
for j:=1 to n do
if b[j] mod 3=0 then
begin
i:=i+1;
b[i]:=b[j];
end;
n:=i;
end;
begin
n:=8;
for i:=1 to n do read(a[i]);
readln;
select(a,n);
for i:=1 to n do write(a[i]:3);
writeln;
end.
输入:8 151 9 7 233 68 514 12
输出:9 12
考点:
分析:
解答:
评论:
老师: