Bài 11: Kiểu mảng

TN

cho dãy số N và 1 số nguyên k. tính tổng các phần tử là bội số của 3 và 5

ML
29 tháng 4 2021 lúc 14:24

Program HOC24;

var i,n,k: integer;

a: array[1..32000] of integer;

t: longint;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then t:=t+a[i];

write('Tong cac phan tu la boi cua 3 va 5 la: ',t);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
NL
Xem chi tiết
TM
Xem chi tiết
NN
Xem chi tiết
PV
Xem chi tiết
HT
Xem chi tiết
LT
Xem chi tiết
AT
Xem chi tiết
LJ
Xem chi tiết
TN
Xem chi tiết