Nhập mảng A,N phần tử là các số nguyên. Tính tổng các phần tử sao cho phần tử đó vừa chia hết cho 3 và chia hết cho 5
1 câu trả lời
uses crt;
var i, N, T : integer;
A : array [1 .. 100] of integer;
begin
clrscr;
T := 0;
write('Nhap so phan tu = '); readln(N);
write('Nhap mang A gom ', N ,' so : ');
for i := 1 to N do begin read(A[i]);
if (A[i] mod 3 = 0) and (A[i] mod 5 = 0)
then T := T + A[i]; end;
write('Tong cac phan tu vua chia het cho 3 va 5 = ', T);
readln
end.
