Bước 1: Nhập n và nhập dãy số

Bước 2: tb←0; i←1;

Bước 3: tb←tb+x[i];

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3 và bước 4

Bước 6: Xuất tb/n;

Bước 7: Kết thúc

Thuật toán:

B1: Nhập N và dãy X

B2: Tb ← 0; i ← 1;

B3: nếu i>n thì đến B6

B4: tb ← tb+x[i];  i ← i+1; và quay lại B3

B5: tb ← tb/n

B6: Xuất kết quả ra màn hình và kết thúc thuật toán

----------------------------------------------------------------------

Chương trình:

uses crt;

var x: array[1..200] of real;

i,n: byte;

tb: real;

begin

clrscr;

write ('nhap n: ');  readln (n);

tb:=0;

for i:=1 to n do

begin

write ('X[',i,']= ');  readln (x[i]);

tb:=tb+x[i];

end;

tb:=tb/n;

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

readln;

end.

$#Trumtinhoc$