cho N và dãy a1, a2 ... an và số K tính tổng các phần tử chia hết cho K có trong dãy
1 câu trả lời
program BT;
uses crt;
var a:array[1..1000] of integer;
i,k,n,m:integer;
begin
clrscr;
m:=0;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,':'); readln(a[i]);
end;
write('Nhap K: '); readln(k);
for i:=1 to n do
if a[i] mod k = 0 then m:=m+a[i];
write('Tong cac phan tu chia het cho K co trong day: ',m);
readln;
end.
Câu hỏi trong lớp
Xem thêm
