Tin học Viết chương trình để nhập 2 loại điểm Toán và Ngữ Văn của các bạn, sau đó in ra màn hình điểm trung bình của mỗi bạn trong lớp ( theo công thức điểm t 22/07/2021 By Charlie Viết chương trình để nhập 2 loại điểm Toán và Ngữ Văn của các bạn, sau đó in ra màn hình điểm trung bình của mỗi bạn trong lớp ( theo công thức điểm trung bình=(điểm Toán+điểm Ngữ văn)/2), điểm trung bình của cả lớp theo từng môn Toán và Ngữ văn
Uses crt; Var I,n:integer; TbToan,TbVan:real; DiemToan,DiemVan:array[1..100] of real; Begin Writeln(‘Diem trung binh:’); Write(‘Nhap so ban trong lop:’);readln(n); For i:=1 to n do Writeln(‘So diem cua ban thu ‘,I,’ , ‘,(DiemToan[i]+DiemVan[i])/2:3:1); TbToan:=0;TbVan:=0; For i:=1 to n do Begin Tbtoan:=TbToan+DiemToan[i];TbVan+DienVan[i]; End; TbToan:=TbToan/n; TbVan:=TbVan/n; Writeln(‘Diem trong binh mon toan:’,TbToan:3:2); Writeln(‘Diem trong binh mon van:’,TbVan:3:2); Readln; End. Trả lời