pascal电脑程序问题（我对神，对太阳发誓，如果你答对而我不重赏，我就不尊敬神而且还会割下头给你坐！！

来源：百度知道 编辑：UC知道 时间：2024/09/22 16:05:54
注：必须为pascal语言！
1、输入10个数，统计其中正、负和零的个数；
2、把数码1，2，3，4……8，9分成三组，每组构成一个3位数，使这三个三位数恰好成1：2：3（比率），该怎样分？求出所有解答。（如：192，384，576就是一组答案）
尽量精简程序

题目1
program 1 ;
var
a :array[1..10] of longint ;
i,x,y,z : longint ;
begin
for i := 1 to 10 do
read(a[i]);
for i := 1 to 10 do
if a[i]>0 then inc(x)
else if a[i]=0 then inc(y)
else inc(z);
writeln(x,' ',y,' ',z);
end;

题目2
穷举！
var
a,b,c,d,e,f,g,h,i,x,y,z : longint ;
begin
for a := 1 to 9 do
for b := 1 to 9 do
for c := 1 to 9 do
for d := 1 to 9 do
for e := 1 to 9 do
for f := 1 to 9 do
for g := 1 to 9 do
for h := 1 to 9 do
for i := 1 to 9 do
if (a<>b) and (a<>c) and (a<>d) and (a<>e) and (a<>f) and (a<>g) and (a<>h) and (a<>i) and (b<>c) and (b<>e) and (b<>f) and (b<>g) and (b<>h) and (b<>i) and (c<>d) and (c<&