Bài 1:

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

        Write('Tong la: ',s);
        Readln
End.

Bài 2: 

Program BTT;
Uses crt;
Var n,s: longint;
Begin
        Clrscr;
        n:=1; s:=0;
        While s<=1000 do
        Begin
                s:=s+n;
                inc(n);
        End;

        Write('N = ',n);
        Readln
End.

a)

program a;
uses crt;
var A: array[1..10000] of longint;
     n,i,s: longint;
begin clrscr;
   write('Nhap so luong phan tu: '); readln(n);
     s:=0;
       for i:=1 to n do
         begin
             write('A[',i,'] = '); readln(A[i]);
             if (A[i] mod 3 = 0) and (A[i] mod 5 = 0) then s:=s+A[i];
        end;
   write('Tong la: ',s);
readln;
end.

b)

program b;

uses crt;

var T,n:integer;

Begin clrscr;

     T:=0, n:=0;

   while T<=1500 do

     begin

        n:=n+1; T:=T+n;

     end;

   write(‘Tong T= ’,S,‘ va ’,n,’ la so tu nhien nho nhat sao cho S>1500’);

Học tốt!