深圳工商局网上投诉:编写一程序段，统计数组NUM中含1的数的个数，并存入RESULT 单元

来源：百度文库 编辑：神马品牌网 时间：2024/05/06 00:57:54
编写一程序段，统计数组NUM中含1的数的个数，并存入RESULT 单元

DATA SEGMENT
NUM DB -1，0，3，-6，7，23，0，-50，3，1
RESULT DB？
DATA ENDS

free pascal;
var num,result:longint;
begin
result:=0;
repeat
read(num);
if num=1 then inc(result);
until eof;
writeln(result);
end.

语言：free pascal;
源程序如下：
var num,result:longint;
begin
result:=0;
repeat
read(num);
if num=1 then inc(result);
until eof;
writeln(result);
end.

编写一程序段，统计数组NUM中含1的数的个数，并存入RESULT 单元 统计AX中1的个数,编写程序. 怎么用C++编写一个统计一源程序语句数,行数,字符数,类及函数的个数的程序 请教大侠们，该题怎么做？编写程序，产生30个随即数到数组中，删除其中的最大值，输出删除前后的数组 用C语言编写一Total函数，求N行M列的二维数组中所有数的和 编写一程序，统计学生的成绩信息（保存在文件Score.dat中）。 C语言--编写一程序，统计学生的成绩信息. 1.用C语言 编写一程序段求<n中的所有含有数字7数和能被7整除的数之和. 利用C++如何编程：编写程序，统计一串字符中包含的单词数（假定单词以一个或多个空格分隔）。 用C++编写程序，统计一串字符中包含的单词数（假定单词以一个或多个空格分隔）。