Question

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

Answer 1

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.