用PASCAL编写一道提

直接在文本框里写的，对不对的自己调一下
Program ex01;
Var
i,k,sumn,sump,sum0:Longint;
Begin
sumn:=0;sump:=0;sum0:=0;
For i:=1 to 20 Do Begin
Readln(k);
If k=0 Then Inc(sum0);
If k>0 Then Inc(sump);
If k<0 Then Inc(sumn);
End;
Writeln('sum0=',sum0);
Writeln('sump=',sump);
Writeln('sumn=',sumn);
End.

我同意上面的。不过好像是一次统计20个数吧。要吧“k”这个变量做成ingeter或longint型的数组吧？

由于每次统计完就完事了, 并不涉及其它的计算, 所以k不用数组也是可以的.

题目没有范围啊
这样吧：
Program Ex;
Var
nu, n0, no, i: Integer;
str1: String;

Function check: Boolean;
Var
i: Integer;
Begin
check := True;
For i:=1 To Length(str1) Do
If str1[i] <> '0' Then Begin
check := False;
Exit;
End;
End;

Begin
nu := 0; //under 0
n0 := 0; //same as 0
no := 0; //over 0
For i:=1 To 20 Do Be