Hoàng Lê Phương Lam
Hỏi từ APP VIETJACK
Viết chương trình nhập số nguyên dương N(N<=500) dãy gồm N số nguyên.Tính tổng các số chia hết cho 3 hoặc 5 trong dãy số đó.
Quảng cáo
1 câu trả lời 1951
uses crt;
var a:array[1..10000] of integer;
n,i,s:integer;
begin
clrscr;
repeat
read(n);
until n<=500;
for i:=1 to n do read(a[i]);
readln;
for i:=1 to n do if (a[i] mod 3=0) or (a[i] mod 5=0) then s:=s+a[i];
write('Tong la: ',s);
readln
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86356
Gửi báo cáo thành công!
