作业帮 > 综合 > 作业

Pascal输入20个整数,统计其中正数、负数和零的个数

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/04/27 03:22:28
Pascal输入20个整数,统计其中正数、负数和零的个数
【试题描述】
输入20个整数,统计其中正数、负数和零的个数
【输入描述】
20个数,每行一个
【输出描述】
一行:三个空格隔开的整数,表示正数个数 零的个数 负数个数.
【输入样例】
1
2
4
5
-3
-5
0
0
9
-8
0
35
89
31
34
-89
0
38
-8
20
【输出样例】
11 4 5
Pascal输入20个整数,统计其中正数、负数和零的个数
var
i,k,n1,n2:integer;
begin
n1:=0;
n2:=0;
for i:=1 to 20 do begin
readln(k);
if k>0 then n1:=n1+1
else if k