uses crt; var a: array[1..100] of integer; k,i,n,t,dem:integer; begin clrscr; write('nhap n: '); readln(n); for i:=1 to n do begin write('nhap a[',i,']= '); readln(a[i]); end; write('nhap k: '); readln(k); for i:=1 to n do if a[i] mod k=0 then begin inc(dem); t:=t+a[i]; end; writeln('co ',dem,' so trong day la boi cua ',k); writeln('tong cua day boi la: ',t); readln; end.
