作业帮 > 综合 > 作业

用户从键盘上任意输入10个整数,程序输出其中能够被5整除的数之和.如果没有能够被5整除的数,则输出

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/04/29 21:16:50
用户从键盘上任意输入10个整数,程序输出其中能够被5整除的数之和.如果没有能够被5整除的数,则输出
则输出“没有能被5整除的数”
var a:array[0..20]of longint;
i,j,k,n,t:longint; b:boolean;
begin
for i:=1 to 10 do read(a[i]);
b:=false;
for i:=1 to 10 do if a[i] mod 5=0 then begin t:=t+a[i]; b:=true; end;
if b then writeln(t) else writeln('没有能被5整除的数');
end.