Nhập mảng A gồm N phần tử (N<=10) . Nhập thêm phần tử K vào mảng và đếm xem trong mảng có bao nhiêu số chia hết cho K và tổng của chúng. Đưa kết quả ra màn hình
Program FNG; Uses crt; Var A: array[1..1000] of longint; n,i,d1,s1,k: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do If A[i] mod k = 0 then Begin inc(d1); s1:=s1+A[i]; End; Writeln('Dem = ',d1); Write('Tong = ',s1); Readln End.