giúp mình về bài tập pascal

[kidofsun090]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Cho 5 số. Tìm xem có bao nhiêu số chia hết cho 3

 

[diamond_jelly95]

Cho 5 số. Tìm xem có bao nhiêu số chia hết cho 3

gán 5 số vào mảng
d:=0;
For i:=1 to n do
if a mod 3=0 then d:=d+1 else i:=i+1;

 

[kidofsun090]

bạn có thể viết giúp mình cả bài đc ko .

 

[duynhan1]

gán 5 số vào mảng
d:=0;
For i:=1 to n do
if a mod 3=0 then d:=d+1 else i:=i+1;

Bài này sai bỏ cái else đi thì đúng