uses crt;
var a: array[1..100] of integer;
    n,i,b: longint;
    s: real;
begin
clrscr;
s:=0;
b:=1;
write('Nhap n:');   readln(n);
for i:=1 to n do
begin
write('a[',i,']=');     readln(a[i]);
if (a[i] mod 2=0) and (a[i] mod 5=0) then begin s:=s+a[i]; b:=b+1; end;
end;
s:=s/b;
write('Cac so chia het cho 5 la:');
for i:=1 to n do if a[i] mod 5 = 0 then write(a[i],' ');
writeln;
write('Trung binh cong cac so tu nhien chia het cho 2 va 5 la: ',s:10:2);
readln;
end.

      uses crt ;
  var a:array [1..100] of longint ;
    n,s,i,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 2=0 ) and (a[i] mod 5=0) then 
           begin
             s:=s + a[i] ;
              d:=d+1 ;
            end;
      end ;
    write('cac so chia het cho 5: ') ;
         for i:=1 to n do 
              if a[i] mod 5= 0 then write(a[i]:3);
    writeln ;
    writeln('trung binh cong cac so chia het cho 5 va 2 :',s/d:3:2)  ;
       readln   
           end.
              //khoadang09 - hđ247