Tin học Hãy viết 1 chương trình nhập điểm môn Tin, Toán, Văn, Anh của các bạn trong lớp ( ít nhất có 3 bạn), sau đó Tính tổng? Tính Trung Bình? Đưa ra bạn học 12/07/2021 By Adeline Hãy viết 1 chương trình nhập điểm môn Tin, Toán, Văn, Anh của các bạn trong lớp ( ít nhất có 3 bạn), sau đó Tính tổng? Tính Trung Bình? Đưa ra bạn học sinh có điểm cao nhất
program phuongt;uses crt; var T, M, V, A: array[1..100] of integer; i, n, s, max: integer;begin clrscr; write(‘Nhap so hoc sinh: ‘); readln(n); if n<3 then write(‘It nhat co 3 ban!.’) else begin for i:=1 to n do begin write(‘Nhap diem tin cua ban thu ‘, i, ‘: ‘); readln(T[i]); write(‘Nhap diem toan cua ban thu ‘, i, ‘: ‘); readln(M[i]); write(‘Nhap diem van cua ban thu ‘, i, ‘: ‘); readln(V[i]); write(‘Nhap diem anh cua ban thu ‘, i, ‘: ‘); readln(A[i]); write(‘Tong diem cua ban thu ‘, i, ‘: ‘, T[i]+M[i]+V[i]+A[i]); write(‘TB cua ban thu ‘, i, ‘: ‘, (T[i]+M[i]+V[i]+A[i])/4:3:1); end; max:=T[1]+M[1]+V[1]+A[1]; for i:=1 to n do if max<(T[i]+M[i]+V[i]+A[i]) then begin max:=T[i]+M[i]+V[i]+A[i]; s:=i; end write(‘Ban hoc sinh co diem cao nhat la ban thu ‘, i); write(‘ va ban co so diem la ‘, max, ‘ diem’); end; readlnend. Trả lời