Question

nhập vào mảng 1 chiều A gốm N phần tử là các số nguyên (1<N<=10^6) và số nguyên K
a) tính tổng các số chia hết cho R
b) Đếm số lượng các số chia hết cho R

Answer 1

uses crt;

var a:array[2..1000000]of longint;

n,i,k,t,dem:longint;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until (1<n) and (n<=1000000);

for i:=2 to n do

begin

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

end;

write('Nhap k='); readln(k);

t:=0;

dem:=0;

for i:=2 to n do

if a[i] mod k=0 then

begin

t:=t+a[i];

inc(dem);

end;

writeln('Tong cac so chia het cho ',k,' la: ',t);

writeln('So phan tu chia het cho ',k,' la: ',dem);

readln;

end.