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

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

program ct;

uses crt;

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

      i,n,min,S,S1:longint;

begin clrscr;

   write('Nhap so phan tu: '); readln(n);

   for i:=1 to n do 

     begin 

        write('Nhap A[',i,']: '); readln(A[i]);

     end;

     min:=A[1];

   for i:=1 to n do

     begin

        S:=S+A[i];

        if (A[i] mod 3=0) and (A[i] mod 5=0) then S1:=S1+A[i];

        if A[i]<min then min:=A[i];

     end;

   writeln('Tong mang la: ',S);

   writeln('Tong cac phan tu chia het cho 3 va 5 la: ',S1);

   writeln('Min la: ',min);

readln;

end.

Học tốt!