Program cgdg;
Uses crt;
Var A: array[1..100] of integer;
S,i,n: integer;
Begin
clrscr;
Write('Nhap so hang cua day: '); Readln(n);
For i:=1 to n do
Begin
Write('So hang thu ',i,' : '); Readln(A[i]);
End;
S:=0;
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 cac so chia het cho 3 hoac chia het cho 5: ',S);
Readln
End.
Không biết đúng ý bạn chưa, nếu không phải kiểu này thì nhắn để mình sửa