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?

Câu hỏi của bạn đã được giải đáp ở đây :D

https://hoidap247.com/cau-hoi/195518

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.