Question

Viết chương trình nhập từ bàn phím điểm môn tiếng Anh và môn Vật lý của n học sinh tính trung bình cộng môn tiếng Anh và môn lý của cả lớp

Answer 1

program TinhTBCMon;

var

      n, i: integer;

      diemAnh, diemVL, tongDiemAnh, tongDiemVL: real;

begin

      tongDiemAnh := 0;

      tongDiemVL := 0;

      write('Nhap so hoc sinh: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap diem Tieng Anh cua hoc sinh ', i, ': ');

            readln(diemAnh);

            tongDiemAnh := tongDiemAnh + diemAnh;

            write('Nhap diem Vat ly cua hoc sinh ', i, ': ');

            readln(diemVL);

            tongDiemVL := tongDiemVL + diemVL;

      end;

      writeln('Diem trung binh mon Tieng Anh cua lop la: ', tongDiemAnh/n:0:2);

      writeln('Diem trung binh mon Vat ly cua lop la: ', tongDiemVL/n:0:2);

      readln;

end.