Uses Crt;

Var A : Array[1..200] of Integer;

    i,n,s : Integer;

Begin

 Clrscr;
 s:=0;

 Write('Nhap n : '); Readln(n);

 For i:=1 to n do

  Begin

   Write('Nhap A[',i,'] : '); Readln(A[i]);
   s:=s+A[i];

  End;
 Writeln('Mang vua nhap la : ');
 For i:=1 to n do Writeln(A[i]);

 Writeln('TBC cac phan tu trong mang la : ',s/n:1:2);

 Readln

End.

uses crt;

var a: array[1..100] of integer;

i,n,s: integer;

begin

clrscr;

write ('nhap N: ');  readln(n);

s:=0;

for i:=1 to n do 

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

s:=s+a[i];

end;

write ('Cac phan tu: ');

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

writeln ('Trung binh cong: ',s/n:1:2);

readln;

end.