uses crt;
var i,n,tong:integer;
    a:array[1..100] of integer;
begin
 clrscr;
 write('Nhap n: ');
 readln(n);
 for i:=1 to n do
 begin
  write('Phan tu thu ',i,':');
  readln(a[i]);

  tong:=tong+a[i];
 end;

writeln('Day vua nhap la: ');

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

writeln;

write('Trung bình cong cac so trong mang: ',tong/n:5:2);

readln;

end.

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.