作业帮 > 综合 > 作业

用pascal编写程序 输入十个整数,统计大于0的数的个数.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/17 08:24:17
用pascal编写程序 输入十个整数,统计大于0的数的个数.
用pascal编写程序
输入十个整数,统计大于0的数的个数.
var
a,n,i:longint;
begin
for i:=1 to 10 do begin
read(a);
if a>0 then n:=n+1;
end;
write(n);
end.