program Mang_tong_hop;

uses crt;

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

      n,i,max,min,T: integer;

Begin

         clrscr;

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

         for i:=1 to n do

         begin

                  write('A[',i']='); readln(A[i]);

         end;

         max:=1; min:=1;

         write('a) Mang vua nhap: ');

         for i:=1 to n do

         begin

                  write(A[i],'  ');

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

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

                  T:=T+A[i];

         end;

         writeln;

         writeln('b) Phan tu lon nhat: ',max);

         writeln('    Phan tu nhp nhat: ',min);

         writeln('c) Tong cac phan tu trong mang = ',T);

         write('d) Cac phan tu chia het cho 3: ');

         for i:=1 to n do

              if A[i] mod 3=0 then write(A[i],'  ');

         writeln;

         write('e) Cac phan tu chia het cho 2 va 5: ');

         for i:=1 to n do

              if (A[i] mod 2=0) and (A[i] mod 5=0) then write(A[i],'  ');

         readln

End.

uses crt;
var a:array[1..100] of integer;
    i,n,min,max,tong:longint;
Begin
 clrscr;
 write('Nhap n: ');
 readln(n);
 for i:=1 to n do
 begin
  write('a[',i,'] =');
  readln(a[i]);
 end;
 writeln('Mang vua nhap la: ');
 for i:=1 to n do write(a[i],' ');
 writeln;
 max:=a[1]; min:=a[1];
 for i:=1 to n do
 begin
  tong:=tong+a[i];
  if a[i] > max then max:=a[i];
  if a[i] < min then min:=a[i];
 end;
 writeln('Phan tu lon nhat la: ',max);
 writeln('Phan tu nho nhat la: ',min);
 writeln('Tong cua cac phan tu trong mang la: ',tong);
 writeln('Cac phan tu chia het cho 3 la: ');
 for i:=1 to n do if a[i] mod 3 = 0 then write(a[i],' ');
 writeln;
 writeln('Cac phan tu chia het cho 2 va 5 la: ');
 for i:=1 to n do if a[i] mod 10 = 0 then write(a[i],' ');
 readln;
end.

Giải thích câu e: một số chia hết cho cả 2 và 5 là số có đuôi = 0, tức chia hết cho 10. nên chỉ cần xét điều kiện chia hết cho 10 là đủ.