说一句名言:
论坛是大家讨论的地方，不是你懒惰的地方。
lz不要总提很简单的问题，这些题只要学过p的人一般动动脑子就能作出来

1L的,这句'名言'是谁说的呀`````````

世界反腐败精英在此,谁敢造次!!打击一人多号,随便灌水!!
lz and three floor ,me要举报you ,hahahhaa~~,等死吧

哈哈哈,哈你个头啊`~`神精病,脑子进水!

var a:array[1..10] of integer;
    i:integer
begin
write('Please enter 10 integers:");
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do
begin
write('jishu:');
if a[i] mod 2<>0 then write(a[i]:5);
writeln;
end;
write('Oushu:'):
for i:=1 to 10 do 
begin
if a[i] mod 2=0 then write(a[i]:5);
end;
end.