H24

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

ML
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ự
NT
Xem chi tiết
H24
Xem chi tiết
TM
Xem chi tiết
VT
Xem chi tiết
NN
Xem chi tiết
LP
Xem chi tiết
PT
Xem chi tiết
NH
Xem chi tiết
TQ
Xem chi tiết