H24

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ử đó

ML
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ự
BX
Xem chi tiết
PN
Xem chi tiết
TH
Xem chi tiết
YN
Xem chi tiết
TT
Xem chi tiết
HK
Xem chi tiết
TD
Xem chi tiết
4T
Xem chi tiết
VT
Xem chi tiết