program Min;
uses crt;
var A:array[1..100] of integer;
    i,n,tong:integer;
begin
   tong:=0;
   writeln('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      writeln('Nhap phan tu thu ',i);
      readln(A[i]);
   end;
   for i:=1 to n do 
   begin 
       if (A[i] mod 3 = 0) and (A[i] mod 5 =0) then tong:=tong+A[i];
   end;
   writeln('Tong cac phan tu chia het cho 3 va cho 5 la: ',tong);
   readln
end.

Bạn kiểm tra lại chương trình nhé, mình đã thử và cho kết quả đúng :D

uses crt;

var A : array [1 .. 100] of integer;

i, N, S : integer;

begin

clrscr;

write('Nhap so phan tu = '); readln(N);

S := 0; write('Nhap ', N ,' phan tu mang A : ');

for i := 1 to N do begin read(A[i]);

if (A[i] mod 3 = 0) and (A[i] mod 5 = 0)

then S := S + A[i]; end;

write('Tong = ', S);

readln

end.