Viết chương trình nhập điểm Toán của các bạn trong một lớp. Sau đó tính điểm trung bình của cả lớp theo môn Toán. Đếm xem có bao nhiêu bạn môn Toán đạ

Viết chương trình nhập điểm Toán của các bạn trong một lớp. Sau đó tính điểm trung bình của cả lớp theo môn Toán. Đếm xem có bao nhiêu bạn môn Toán đạt học sinh giỏi?
Pls :((

0 bình luận về “Viết chương trình nhập điểm Toán của các bạn trong một lớp. Sau đó tính điểm trung bình của cả lớp theo môn Toán. Đếm xem có bao nhiêu bạn môn Toán đạ”

  1. program Toan;

    uses crt;

    var n,i,d: integer;

          toan,TB: real;

    Begin

             clrscr;

             write(‘Nhap so hoc sinh: ‘); readln(n);

             for i:=1 to n do

             begin

                      write(‘Nhap diem Toan cua HS thu ‘,i,’: ‘); readln(toan);

                      TB:=TB+toan;

                      if toan>=8 then d:=d+1;

             end;

             writeln(‘Trung binh mon Toan ca lop: ‘,TB/n:2:2);

             write(‘Co ‘,d,’ ban dat HSG Toan’);

             readln

    End.

    Bình luận
  2. var a: array[1..50] of real;

          i, n, d: byte;

          tb: real;

    Begin

        Write(‘nhap so luong hoc sinh: ‘); 

        Readln(n); tb:=0; d:=0;

        For i:=1 to n do

          Begin

              Write(‘nhap diem cua hoc sinh thu ‘, i, ‘: ‘);

              Readln(a[i]); tb:=tb+a[i];

              If a[i]>=8.0 then inc(d);

          End;

       tb:=tb/n;

       Writeln(‘diem toan trung binh: ‘, tb:6:2);

       Write(‘co ‘, d, ‘ hoc sinh gioi toan’);

       Readln

    End.

    Bình luận

Viết một bình luận