viết chương trình pascal nhập vào điểm kiểm tra 1 tiết môn toán của học sinh lớp 11a , tính điểm trung bình và số lượng các học sinh có điểm trên 5
1 câu trả lời
Program baitap;
Uses crt;
Var D:array[1..50] of real;
S:real;
i,n,dem:integer;
Begin
Clrscr;
Write('Nhap so hoc sinh:'); Readln(n);
S:=0; dem:=0;
For i:=1 to n do
Begin
Write('Nhap diem cua hoc sinh thu ',i,':');
Readln(D[i]);
S:=S+D[i];
If D[i]>=5 then dem:=dem+1;
End;
Writeln('Diem trung binh:',S/n:2:1);
Writeln('Co ',dem,' hoc sinh co diem tren 5');
Readln
End.
