`@`$Sasori$

`II.` Tự luận

uses crt;
var n,i:integer;
    x:array[1..1000] of real;
    tong:real;
BEGIN
        clrscr;
        write('Nhap n:'); readln(n);
        tong:=0;
        for i:=1 to n  do
        begin
                write('Nhap a[',i,']:');
                readln(x[i]);
                tong:=tong+x[i];
        end;
        write('Trung binh cong cua cac so trong mang X la:',tong/n:0:3);
        readln
END.

uses crt;

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

i,n: integer;

tb: real;

begin

clrscr;

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

tb:=0;

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (x[i]);

tb:=tb+x[i];

end;

writeln ('Trung binh la: ',tb/n:1:2');

readln;

end.

$#Trumtinhoc$