free pascal IDE 高手来

来源：百度知道 编辑：UC知道 时间：2024/09/22 05:43:27
编程求一批用0作结束的数列，统计其中有多少个正数and负数

这不是很简单...
var a,b,c,d,e,f:longint;
begin
a:=0;b:=0;
repeat
read(c);
if c>0then a:=a+1;
if c<0then b:=b+1;
until c=0;
writeln(a{正数},b{负数});
end.

program pyy;
var a,b,c,d:longint;
begin
a:=0;b:=0;
repeat
read(c);
if c>0then a:=a+1;
if c<0then b:=b+1;
until c=0;
writeln(a{正数},b{负数});
end.

... 太水了 初学者都会

It's easy.

var a,z,f:longint;
begin
read(a);f:=0;z:=0;
while a<>0 do begin if a<0 then inc(f);if a>0 then inc(z);end;
writeln('zheng shu:',z,'fu shu:',f);
end.