program bai16;
uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 9 do
begin
writeln('Bang cuu chuong ',i);
for j:=1 to 9 do
writeln(i,'*',j,'=',i*j);
end;
readln
end.
program bai17;
uses crt;
var A:array[1..10000] of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');
t:=0;
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
t:=t+A[i];
end;
write('Trung binh cong cua mang la: ',t/n:2:2);
readln
end.
