PROGRAM CT65;
USES crt;
VAR n,i,tong: INTEGER;
A: ARRAY[1..366] OF BYTE;
BEGIN
n:=0;
WHILE (N>366) OR (N<=0) DO
BEGIN
Clrscr;
Write('Nhap so ngay: '); Readln(n);
END;
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('Nhiet do trung binh cua ',n,' ngay: ',Tong/n:2:1);
Readln
END.
Download: http://www.mediafire.com/?1kqcae9845p3499
USES crt;
VAR n,i,tong: INTEGER;
A: ARRAY[1..366] OF BYTE;
BEGIN
n:=0;
WHILE (N>366) OR (N<=0) DO
BEGIN
Clrscr;
Write('Nhap so ngay: '); Readln(n);
END;
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('Nhiet do trung binh cua ',n,' ngay: ',Tong/n:2:1);
Readln
END.
Download: http://www.mediafire.com/?1kqcae9845p3499