uses crt;

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

i,n,j: integer;

tb: real;

begin

clrscr;

write ('nhap so luong phan tu: ');  readln (n);

for i:=1 to n do

begin

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

tb:=tb+a[i];

end;

tb:=tb/n;

writeln ('Trung binh: ',tb:1:2);

readln;

end.

$#Trumtinhoc$

uses crt;
var a:array[1..500] of integer;
    n,i,t:integer;
Begin  
    clrscr;
    write('n = ');readln(n);
    for i:=1 to n do
    begin 
        write('a[',i,'] = ');readln(a[i]);
    end;
    for i:=1 to n do t:=t+a[i];
    write('trung binh cong cac pt = ',t/n:3:2);
    readln
End.