KTRA 1 TIET THUC HANH

Điểm Lời phê của cô giáo ViÕt ch¬ng tr×nh sư dơng biÕn m¶ng ®Ĩ tÝnh gi¸ trÞ trung b×nh cđa tỉng N sè nguyªn ®ỵc nhËp vµo tõ bµn phÝm. Program bien- mang; Uses crt; Var N, i: integer; TB: real; A: array[1 100] of real; Begin Clrscr; write(’Nhap so phan tu cua mang, n= ’); read(100); for i:=1 to n do begin write(’Nhap gia tri ’,i,’cua mang, a[’,i,’]= ’); readln(a[1]); end TB:=0; for i:=1 to n do TB:=TB+a[i]; TB:=TB/a; write(’Trung binh bang ’,TB); End. 1. Nhập chương trình (2đ) 2. Trong chương trình có 6 lỗi, em hãy sửa lại các lỗi (mỗi lỗi sửa đúng 1 đ). 3. Trình bày chương cho đẹp và phù hợp (1đ) 4. Lưu bài: tên_somay_ổ đĩa (1đ) Trường THCS Lý Tự Trọng Lớp: Tên: KIỂM TRA MỘT TIẾT (TH) Năm học: 2009 - 2010 Môn Tin học lớp 8 Thời gian: 45 phút . array [1 100] of real; Begin Clrscr; write(’Nhap so phan tu cua mang, n= ’); read (10 0); for i: =1 to n do begin write(’Nhap gia tri ’,i,’cua mang, a[’,i,’]= ’); readln(a [1] ); end TB:=0; for i: =1. ’,TB); End. 1. Nhập chương trình (2đ) 2. Trong chương trình có 6 lỗi, em hãy sửa lại các lỗi (mỗi lỗi sửa đúng 1 đ). 3. Trình bày chương cho đẹp và phù hợp (1 ) 4. Lưu bài: tên_somay_ổ đĩa (1 ) Trường. tên_somay_ổ đĩa (1 ) Trường THCS Lý Tự Trọng Lớp: Tên: KIỂM TRA MỘT TIẾT (TH) Năm học: 2009 - 2 010 Môn Tin học lớp 8 Thời gian: 45 phút