Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
                If (A[i] mod 3 = 0) or (A[i] mod 5 = 0) then s:=s+A[i];
        End;
        Write('S = ',s);
        Readln
End.

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