Viết chương trình nhập điểm của 10 học sinh. (Làm chung 1 chương trình) a) Tính tổng điểm 10 hs trên. b) Tính điểm trung bình 10 hs trên c) Đếm số học

Bởi

Viết chương trình nhập điểm của 10 học sinh. (Làm chung 1 chương trình)
a) Tính tổng điểm 10 hs trên.
b) Tính điểm trung bình 10 hs trên
c) Đếm số học sinh có điểm lớn hơn 5?
d) Có bao nhiêu hs giỏi?

0 bình luận về “Viết chương trình nhập điểm của 10 học sinh. (Làm chung 1 chương trình) a) Tính tổng điểm 10 hs trên. b) Tính điểm trung bình 10 hs trên c) Đếm số học”

  2. Program BTT;
    Uses crt;
    Var A: array[1..10] of real;
        i,d,g: byte;
        s,tb: real;
    Begin
            Clrscr;
            s:=0; d:=0; g:=0;
            For i:=1 to 10 do
            Begin
                    Write(‘Nhap diem hoc sinh thu ‘,i,’: ‘); Readln(A[i]);
                    s:=s+A[i];
                    If A[i]>5 then inc(d);
                    If A[i]>=8 then inc(g);
            End;

            tb:=s/10;

            Writeln(‘Tong diem: ‘,s:0:2);
            Writeln(‘TBC: ‘,tb:0:2);
            Writeln(‘Co ‘,d,’ hoc sinh tren 5 diem’);
            Write(‘Co ‘,g,’ hoc sinh gioi’);
            Readln
    End.

    Bình luận

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