program Bai_2;

uses crt;

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

      n,i,max,x,d: integer;

      TB: real;

Begin

         clrscr;

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

         max:=1;

         for i:=1 to n do

         begin

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

                  TB:=TB+A[i];

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

         end;

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

         for i:=1 to n do write(A[i],'  ');

         writeln;

         TB:=TB/n;

         writeln('b) Trung binh cac so trong mang = ',TB:2:1);

         writeln('c) So lon nhat: ',max);

         write('d) Nhap so x: '); readln(x);

         for i:=1 to n do

              if A[i]=x then d:=d+1;

         write('   So ',x,' xuat hien ',d,' lan');

         readln

End.