Bài 11: Kiểu mảng

HT

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 

KL
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ự
HT
Xem chi tiết
ND
Xem chi tiết
DK
Xem chi tiết
MH
Xem chi tiết
PV
Xem chi tiết
TH
Xem chi tiết
NN
Xem chi tiết
TN
Xem chi tiết
NN
Xem chi tiết