Viết chương trình nhập vào 1 day số N số nguyên (N <=250) từ bàn phím. Nhập số K, đếm và tính tổng các phần tử số lẻ là ước của K trong dãy số và đưa kết quả ra màn hình
program bt; uses crt; var A:array[1..1000] of integer; n,i,k,T,d:integer; begin clrscr; readln(n,k); for i:=1 to n do read(A[i]); for i:=1 to n do if (A[i]<=k)and(k mod A[i]=0)and(A[i] mod 2 <> 0) then begin inc(d); T:=T+A[i]; end; writeln('So uoc le cua day: ',d); writeln('Tong uoc le cua day: ',T); readln; readln; end.
uses crt; var s,n,k,i:longint; a:array[1..1000000]of longint; begin clrscr; write('Nhap N,K (N<=250) ');readln(n,k); for i:=1 to n do begin write('a[',i,']=');readln(a[i]); if (a[i] mod 2=1)and(k mod a[i]=0) then inc(s,a[i]); end; writeln(s); readln end.