Giúp em với ạ Viết chương trình nhập vào điểm các bạn lớp em gồm 5 môn: Toán, Tin, lý, hóa, Anh văn. (điểm là một số thực từ 0 đến 10 ). Sau đó in ra màn hình: Điểm trung bình của tất cả các bạn.(Điểm trung bình bằng tổng điểm của 5 môn đã nhập và chia 5 và làm tròn đến chữ số thập phân thứ nhất) . Các điểm trung bình từ 5.0 trở lên. Các điểm trung bình nhỏ hơn 5.0 . Điểm trung bình của bạn học giỏi nhất lớp. Điểm trung bình của bạn học kém nhất lớp. Em hãy hoàn thiện chương trình sau và gõ vào máy tính: Program Hotenhocsinhlop; uses crt; var n,i,j: integer; cao, thap: real; Toan, van, ly, sinh, hoa, DTB: array[1..100] of real; begin clrscr; Write('Nhap vao so hoc sinh cua lop em: '); Readln(n); Writeln('Nhap diem cho cac ban lop em:'); For i:=1 to n do begin Writeln('Nhap diem cho ban thu ',i, ' : '); Write('Nhap diem toan: '); Readln(Toan[i]); Write('Nhap diem van: ') ; Readln(van[i]); Write('Nhap diem ly: ') ; Readln(......); Write('Nhap diem sinh: '); Readln(........); Write('Nhap diem hoa: ') ; Readln(.......); DTB[i]:=(Toan[i]+van[i]+....+.....+.....)/5; end; {a}Writeln('a. Diem trung binh cua tat ca cac ban lop em la: '); For i:=1 to n do Writeln('Diem trung binh cua ban thu ',i, 'la: ', DTB[i]:4:1); {b}Writeln('b. Diem trung binh cua tat ca cac ban lop em co DTB tu 5.0 tro len la: '); For i:=1 to n do if DTB[i]>=5.0 then Writeln('Diem trung binh cua ban thu ',i, 'la: ', .........); {c}Writeln('Diem trung binh cua tat ca cac ban lop em co DTB duoi 5.0 la: '); For i:=1 to n do if DTB[i]<5.0 then Writeln('Diem trung binh cua ban thu ',i, 'la: ', ...........); {d,e} cao:=DTB[1]; thap:=DTB[1]; for i:=2 to n do begin if cao<DTB[i] then cao:= DTB[i]; if thap>DTB[i] then thap:= DTB[i]; end; Writeln('d. Diem trung binh cua ban hoc gioi nhat lop em la: ', .............); Writeln(' e. Diem trung binh cua ban hoc kem nhat lop em la: ', .............); Readln; end.