Trang

Viết chương trình nhập vào dãy N số nguyên, đếm xem có bao nhiêu số ko chia hết cho 5(N nhập đc vào từ bàn phím ) GIÚP MIK VS MN MAI MIK THÌ TIN RỒI

Minh Lệ
9 tháng 5 2023 lúc 13:37

Program HOC24;

var i,n,d: integer;

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

begin

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

for i:=1 to n do

begin

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

end;

d:=0;

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

write('Co ',d,' so khong chia het cho 5');

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Nhat thanh Tran
Xem chi tiết
❤X༙L༙R༙8❤
Xem chi tiết
Tuoi tom May
Xem chi tiết
Võ Phan Xuân Trung
Xem chi tiết
Nguyễn Thị Hồng Ngọc
Xem chi tiết
Lê Thế Phong
Xem chi tiết
Phan Thu
Xem chi tiết
Như Huỳnh
Xem chi tiết
Tạ Minh Quân
Xem chi tiết