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.
