Chương trình tính trung bình cộng của n số:
program kaito;
uses crt;
var n, dem: integer;
s: real;
a: array[1..10000] of longint;
begin
clrscr;
write('Nhap n = '); readln(n);
dem:=1; s:=0;
while (dem<=n) do begin
write('Phan tu thu ',dem,' la: '); readln(a[dem]);
s:=s+a[dem]; inc(dem);
end;
writeln('Trung binh cong cua ',n,' so la: ',s/n:0:2);
readln
end.
