Bài 11: Kiểu mảng

Hoàng Thùy

Viết CT nhập dãy số nguyên A gồm n phần tử (n<=100) . Tính và đưa ra màn hình tổng các số chia hết cho 3 và 5 trong dãy 

Kiều Vũ Linh
13 tháng 3 2023 lúc 7:35

Var so,n,i:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(so);

If (so mod 3 = 0) and (so mod 5 = 0) then

s:=s+so;

End;

Write('Tong la ',s);

Readln;

End.

Bình luận (0)

Các câu hỏi tương tự
Hoangf Thu
Xem chi tiết
Nhảy chân sáo mà từ từ đ...
Xem chi tiết
Duong Ngoc Khue
Xem chi tiết
Minh Hiếu
Xem chi tiết
Phạm Vy
Xem chi tiết
Thu hằng
Xem chi tiết
Nguyễn Ngọc
Xem chi tiết
Thảo Nguyên Ngô
Xem chi tiết
nông thị ngân
Xem chi tiết