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
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.