PROGRAM CT44;
USES crt;
VAR i, n: BYTE;
A:ARRAY[1..255] OF INTEGER;
Tong: INTEGER;
BEGIN
Writeln('Chuong trinh tinh trung binh cua n so ');
Write('Nhap n = '); Readln(n);
FOR i:=1 TO n DO
BEGIN
Write('Nhap so thu ',i,' = '); Readln(a[i]);
END;
Tong:=0;
FOR i:=1 TO n DO Tong:=Tong+A[i];
Write('Trung binh cua n so la : ',Tong/n:10:2);
Readln
END.
Download: http://www.mediafire.com/?ji5vj0sgkgc9j9o
USES crt;
VAR i, n: BYTE;
A:ARRAY[1..255] OF INTEGER;
Tong: INTEGER;
BEGIN
Writeln('Chuong trinh tinh trung binh cua n so ');
Write('Nhap n = '); Readln(n);
FOR i:=1 TO n DO
BEGIN
Write('Nhap so thu ',i,' = '); Readln(a[i]);
END;
Tong:=0;
FOR i:=1 TO n DO Tong:=Tong+A[i];
Write('Trung binh cua n so la : ',Tong/n:10:2);
Readln
END.
Download: http://www.mediafire.com/?ji5vj0sgkgc9j9o