-tính trung bình của n số nguyên đó
Program tjnh TBC;
Cont n;
Uses wincrt;
Var A: array [1..n] of integer;
I, j, dem, tong: integer;
Begin
For I:= 1 to n do
Begin
Write ('nhap 'a[I] ,= ');
Readln (a[I]);
End;
Writeln ('day so vua nhap');
Dem:= 0;
Tong:=0;
For I:= 1 to n do
Begin
Dem:= dem+1;
Tong:= tong + a[I]
End;
Write ('ta co'dem' so);
Write ('tong la: 'tong' :3);
Write ('trung binh la', tong/dem : 4:1);
Readln;
End.

-tính tổng của n số nguyên
uses crt;
var i,s,n:integer;
A:array[1..50] of integer;
begin
clrscr;
readln(n);
for i:=1 to n do read(a[i]);
s:=0;
for i:=1 to n do s:=s+a[i];
write(s);
readln
end.

-tính trung bình của n số nguyên đó
Program tjnh TBC;
Cont n;
Uses wincrt;
Var A: array [1..n] of integer;
I, j, dem, tong: integer;
Begin
For I:= 1 to n do
Begin
Write ('nhap 'a[I] ,= ');
Readln (a[I]);
End;
Writeln ('day so vua nhap');
Dem:= 0;
Tong:=0;
For I:= 1 to n do
Begin
Dem:= dem+1;
Tong:= tong + a[I]
End;
Write ('ta co'dem' so);
Write ('tong la: 'tong' :3);
Write ('trung binh la', tong/dem : 4:1);
Readln;
End.