用PASCAL编的循环结构程序

来源：百度知道 编辑：UC知道 时间：2024/05/16 15:25:31
1、编程 读入n个数,计算他们的积、平方和。2、输入20个数，统计其中正、负、零的个数。马上要，快点，在线等！！
ans2:=ans2+tmp*tmp;这个是平方何吗？

1.var n,i,tmp:integer;ans,ans2:int64;
begin
readln(n);
ans:=1;
for i:=1 to n do
begin
read(tmp);
ans:=ans*tmp;
ans2:=ans2+tmp*tmp;
end;
writeln(ans);writeln(ans2);
end.

2.
var i,tmp:integer;zheng,fu,zero:integer;
begin
for i:=1 to 20 do
begin
readln(tmp);
if tmp>0 then inc(zheng)
else if tmp=0 then inc(zero)
else if tmp<0 then inc(fu);
end;
writeln(zheng,' ',fu,' ',zero);
end.

是