Question

cho 1 dãy số nguyên n và dãy số a1, a2, a3,..., an và số nguyen K. tính tổng các số chia hết cho K

em cần thuật toán ạ!!!

Answer 1

var

i,n,k:integer;

s:longint;

a:array[1..32000] of integer;

begin

write(' nhap n : ');

readln(n);

write(' nhap k : ');

readln(k);

for i:= 1 to n do

begin

write('a[',i,']=');

readln(a[i]);

end;

for i:= 1 to n do

if a[i] mod k = 0 then s:= s+a[i];

write(' tong so chia het cho k la : ',s);

readln

end.