Program HOC24;

var i,n,dem: byte;

d: array[1..20] of integer;

begin

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

for i:=1 to n do 

begin

write('D[',i,']='); readln(d[i]);

end;

dem:=0;

for i:=1 to n do if d[i] mod 2<>0 then dem:=dem+1;

write('Co ',d,' phan tu le trong mang');

readln

end.

# Nhập mảng từ bàn phím
arr = list(map(int, input("Nhập mảng các số nguyên, cách nhau bởi dấu cách: ").split()))

# Nhập số M từ bàn phím
M = int(input("Nhập số M: "))

# In ra các phần tử chia hết cho M và tính tổng
sum = 0
count = 0
print("Các phần tử chia hết cho M là:", end=" ")
for i in arr:
    if i % M == 0:
        print(i, end=" ")
        sum += i
        count += 1

if count == 0:
    print("\nKhông có phần tử nào chia hết cho M.")
else:
    print("\nTổng các phần tử chia hết cho M là:", sum)

# Nhập điểm từ bàn phím
diem = float(input("Nhập điểm của học sinh: "))

# Xếp loại học lực dựa trên điểm số
if diem >= 8:
    print("Học sinh giỏi")
elif diem >= 6.5:
    print("Học sinh khá")
elif diem >= 5:
    print("Học sinh trung bình")
elif diem >= 3.5:
    print("Học sinh yếu")
else:
    print("Học sinh kém")

# Nhập mảng A từ bàn phím
n = int(input("Nhập số lượng phần tử của mảng A: "))
A = []
for i in range(n):
    A.append(int(input("Nhập phần tử thứ {} của mảng A: ".format(i+1))))

# Tính trung bình cộng các phần tử chia hết cho 3 và 5
sum_35 = 0
count_35 = 0
for num in A:
    if num % 3 == 0 and num % 5 == 0:
        sum_35 += num
        count_35 += 1
if count_35 > 0:
    tb_35 = sum_35 / count_35
    print("Trung bình cộng các phần tử chia hết cho 3 và 5 trong mảng A là:", tb_35)
else:
    print("Không có phần tử nào chia hết cho cả 3 và 5 trong mảng A")

# In ra các phần tử chia hết cho M và tính tổng các phần tử chia hết cho M
M = int(input("Nhập giá trị M: "))
sum_M = 0
count_M = 0
for num in A:
    if num % M == 0:
        print(num, end=" ")
        sum_M += num
        count_M += 1
print("\nTổng các phần tử chia hết cho M trong mảng A là:", sum_M)

Mn cố gắng giúp mik với ạ! Cảm ơn!❤

Program HOC24;

var i,n,k,d: integer;

a: array[1..1000] of integer;

begin

readln(n,k);

for i:=1 to n do read(a[i]); readln;

d:=0;

for i:=1 to n do if a[i]=k then d:=d+1;

write(d);

readln

end.