uses crt;
var i,n,tong,j,tam,c:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
tong:=0;
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 if ( a[i] mod 2<>0) and(a[i] mod 3=0) and(a[i] mod 5=0) then
  begin
   tong:=tong+a[i];
   c:=c+1;
  end;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] >a[j] then
begin
 tam:=a[i];
 a[i]:=a[j];
 a[j]:=tam;
end;
write('day so vua nhap theo thu tu tang dan la:');
for i:=1 to n do write(a[i],';');
writeln;
write('cac so le  chia het cho 3 va 5 la:');
for i:=1 to n do
 if (a[i] mod 2<>0) and(a[i] mod 3=0) and(a[i] mod 5=0) then write(a[i],';');
writeln;
writeln('co ',c,' so le chia het cho 3 va 5');
writeln('tong cac so le chia het cho 3 va 5 la:',tong);
readln;
end.

(mong dc 5*+hay nhất)

uses crt;
 var a : array[1..100] of longint ;
   n, i, j , lus, s, d : longint ;
     begin
    clrscr;
write('N='); readln(n);
     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
             begin
             s := s + a[i];
             d := d + 1 ;
             end;
         end;
 for i := 1 to n do
    for j := i + 1 to n do
        if a[i] > a[j] then
             begin
            lus := a[i];
            a[i] := a[j];
            a[j] := lus;
             end;
 write('Mang sau khi sap xep: ');
    for i := 1 to n do write(a[i],' ');
writeln;
 write('Cac so chia het cho 3 va 5 la: ');
    for i := 1 to n do
        if (a[i] mod 3=0) and (a[i] mod 5=0) then write(a[i],' ');
writeln ;
 writeln('Co ',d,' so vua chia het cho 3 va 5, co tong la: ',s);
     end.

Code tạm thời ______________________

uses crt;
 var a,b : array[1..100] of longint ;
   Gras : string  ;
   tili ,n, i, j , lus, s, d : longint ;
     begin
    clrscr;
write('N='); readln(n);
readln(Gras);
     for i := 1 to n do
         begin
        val(Gras[i],tili);
        a[i] := tili ;
        tili := 0 ;
         end;
for i :=1 to n do b[i] := a[i];
 for i := 1 to n do 
        if (b[i] mod 3 = 0) and (b[i] mod 5 = 0) then
             begin
             s := s + b[i];
             d := d + 1 ;
             end;
 for i := 1 to n do
    for j := i + 1 to n do
        if b[i] > b[j] then
             begin
            lus := b[i];
            b[i] := b[j];
            b[j] := lus;
             end;
 write('Mang sau khi sap xep: ');
    for i := 1 to n do write(b[i],' ');
writeln;
 write('Cac so chia het cho 3 va 5 la: ');
    for i := 1 to n do
        if (b[i] mod 3=0) and (b[i] mod 5=0) then write(b[i],' ');
writeln ;
 writeln('Co ',d,' so vua chia het cho 3 va 5, co tong la: ',s);
     end.