Viết chương trình nhập dãy số nguyên n từ bàn phím rồi tính trung bình cộng.

Program tinh_tbc;

Uses crt;

Var A :  array [1..150] of integer;

               S,i,n : integer;

               Tbc : real;

Begin 

Write ('nhap n='); 

Readln (n);

S:=0;

For i:=1 to n do

Begin

Write ('nhap phan tu thu ',i,'=');

Readln (A[i]);

S:= S + A[i];

end;

Tbc:= S/n;

Writeln ('Trung binh cong cua day la:', Tbc:8:3);

Readln 

End.

uses crt;
var A:array[1..1000] of integer;
    n,i:integer; S:real;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
      S:=S+A[i];
   end;
   S:=S/n;
   write('Trung binh cong la: ',S:4:2);
   readln
end.