Pascal语言里,在数组里寻找合适条件的数的个数

来源：百度知道 编辑：UC知道 时间：2024/06/06 19:50:21
比如,给100个数,(1000以内)
要求从里面找出3的倍数的个数,怎么找?
或者在一个布尔型数组里面寻找TRUE或者FALSE的数的数量~

1.找出3的倍数的个数
var s,m,i:longint;
begin
for i:=1 to 100 do begin
read(m);
if m mod 3=0 then inc(s);
end;
writeln(s);
end.
2.在一个布尔型数组里面寻找TRUE或者FALSE的数的数量
var b:array[1..100]of boolean;s:longint;
begin
for i:=1 to 100 do begin
read(b[i]);
if b[i]then inc(s);
end;
writeln(s);
end.