uses crt;

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

i, N, Tong : integer;

begin

clrscr;

Tong := 0;

write('Nhap N = '); readln(N);

for i := 1 to N do

    begin

        write('Nhap so thu ', i ,' : ');

        readln(A[i]);

        Tong := Tong + A[i];

    end;

write('Trung binh cong cac phan tu = ', Tong / N : 2 : 1);

readln

end.

Python:

n=int(input('nhap n: '))
print('TBC:',sum([int(input('nhap a[%d]: '%i)) for i in range (1,n+1)])/n)

Pascal:

program Daoanhviet96;
uses crt;
var n,i,s:integer; a:array[1..100] of integer; tbc:real;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
begin
read(a[i]);
s:=s+a[i];
end;
tbc:=s/n;
write(tbc:1:2);
readln;
end.

$\color{green}{\text{Cần code C++, C#, Java, JavaScript thì nói để mình thêm}}$

$\color{red}{\text{#Daoanhviet96}}$