C1:
Uses Crt;
Var a:array[1..1000] of integer;
i,n,S:integer; TBC:real;
Begin
Write(' Nhap do dai day n = '); Readln(n);
For i:= 1 to n do
Begin
Write(' Nhap so thu a[',i,'] = '); Readln(a[i]);
S:=S+a[i];
End;
TBC:=S/n;
Writeln('Vay trung binh cong cac so trong day = ',TBC);
Readln
End.
C2:
Uses Crt;
Var i,n,S:integer;
Begin
Write(' Nhap do day day N ='); Readln(n);
For i:= 1 to n do S:=S+i;
Writeln(' Vay tong tu 1 den ',n,' = ',S);
Readln
End.