Program baitap;

Uses crt;

Var A:array[1..100] of real;

      i,n:integer;

      S:real;

Begin

Clrscr;

S:=0;

Write('n='); Readln(n);

For i:=1 to n do

     Begin

     Write('A[',i,]=');

     Readln(A[i]);

     S:=S+A[i];

     End;

Writeln('Cac phan tu chia het cho 5:');

For i:=1 to n do

     If A[i] mod 5=0 then Writeln(A[i]);

Writeln('Trung binh cong cua day so:', S/n:9:2);

Readln

End.

program bai_giai;
uses crt;
var a:array[1..100]of longint;i,n,dem:longint;tbc,s:real;
begin
 clrscr;
  write('nhap n:');readln(n);
  dem:=0;
  s:=0;
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
         s:=s+a[i];
         inc(dem);
        end;
  write('cac phan tu chia het cho 5 la:');
  for i:=1 to n do if(a[i] mod 5=0) then write(a[i],' ');
  writeln;
  tbc:=s/dem;
  write('trong binh cong day so la:',tbc);
 readln;
end.