uses crt;
var a:array[1..100]of integer;
i,n,k,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod k=0 then t:=t+a[i];
writeln(t);
readln;
end.
Cho dãy A gồm N số nguyên (N nhỏ hơn hoặc bằng 200) số nguyên A1,A2,...An. Hãy viết chương trình nhập mảng A vào từ bàn phím và đưa ra màn hình tổng các phần tử chia hết cho 5.
Bài 2: Viết chương trình nhập 1 xâu vào từ bàn phím và đưa ra màn hình xâu không chứa dấu cách. 
giúp em với ạ!
Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy số A1, A2,...An. đưa ra màn hình tổng các số nguyên chẵn của dãy số.
viết chương trình nhập vào dãy A gồm n số nguyên A1 , A2 ...An . (n<=100) đưa ra màn dãy B gồm các phần tử là số chẵn trong dãy A
Viết chương trình nhập vào một dãy số gồm N phần tử từ A1, A2,…, An. Hãy đưa ra màn hình dãy số vừa nhập và số lượng các số chẵn trong dãy
Viết chương trình nhập vào một dãy số gồm N phần tử từ A1, A2,…, An. Hãy đưa ra màn hình dãy số vừa nhập và số lượng các số chẵn trong dãy
Viết chương trình nhập vào từ bàn phím dãy số nguyên A1 ... An tính và đưa ra màn hình tổng các số chẵn có mặt trong dãy và số lượng các số chẵn
Viết chương trình nhập số nguyên dương n. Dãy số nguyên A1,A2,....An,.... Sau đó đếm số phần tử dương trong dãy số đó.
Mọi người giúp em với ạ, mai em phải nộp bài rồi:((
: Viết chương trình nhập vào một dãy số A gồm N số nguyên a1, a2,…,an (n<=300, |ai| <= 40000).
a. Tính tổng dãy số A.
b. Tính tổng các số chia hết cho 3 có trong dãy số trên.
c. Đếm số lượng số chẵn, lẻ có trong dãy số trên.
f. tìm phần tử lớn nhất, nhỏ nhất của dãy số.
g. Tính tổng bình phương các số âm có trong dãy số trên.
