Pascal基础循环嵌套题
Pascal基础循环嵌套题
日期：2007-03-29 13:30:41 人气：1
（1）结果：
11
19
25
29
31
31
29
25
19
11
（2）
program two;
var
i,j,p:integer;
a,b:array[1..10]of integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
if a[i] mod 2=0 then
begin
inc(j);
b[j]:=a[i];
a