ttrr

cho 1 mảng a gồm 100 phần tử viết chương trình đếm số lượng các phân tử chia hết cho x nhập từ bàn phím, in ra màn hình các phân tử đó

Minh Lệ
12 tháng 4 2022 lúc 19:27

Program HOC24;

var i,d,n,x: integer;

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

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do 

begin

write('Nhap phan tu thu ',i,': '); readln(a[i]);

end;

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

d:=0;

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

write(d);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Bùi Xuân
Xem chi tiết
phạm hải nam
Xem chi tiết
Tiến Đạt Huỳnh
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Tuấn Trần thị
Xem chi tiết
hoàng kim
Xem chi tiết
Thwn Dayy
Xem chi tiết
42. Hồ Đăng Quốc Trung....
Xem chi tiết
Vàng Phan Thanh
Xem chi tiết