Cho một mảng dtoan dùng để lưu trữ điểm thi môn toán của học sinh khối 11 (giả sử khối 11 có 500 học sinh). Viết chương trình thực hiện các yêu cầu:
a. Nhập điểm cho các học sinh
b. Tính điểm trung bình của các học sinh
c. Đếm xem có bao nhiêu học sinh thủ khoa môn toán
Program BTT;
Uses crt;
Var A: array[1..500] of real;
n,i,d: longint;
max,s: real;
Begin
Clrscr;
Write(‘Nhap so hoc sinh: ‘); Readln(n);
max:=0; s:=0;
For i:=1 to n do
Begin
Write(‘Nhap diem hoc sinh thu ‘,i,’: ‘);
Readln(A[i]);
If A[i]>max then max:=A[i];
s:=s+A[i];
End;
d:=0;
For i:=1 to n do
If A[i]=max then inc(d);
Writeln(‘DTB la: ‘,s/n:0:2);
Write(‘Co ‘,d,’ thu khoa’);
Readln
End.
Program BT;
Uses crt;
Var A: array[1..500] of real;
n,i,d: longint;
max,s: real;
Begin
Clrscr;
Write(‘Nhap so hoc sinh: ‘); Readln(n);
max:=0; s:=0;
For i:=1 to n do
Begin
Write(‘Nhap diem hoc sinh thu ‘,i,’: ‘);
Readln(A[i]);
If A[i]>max then max:=A[i];
s:=s+A[i];
End;
d:=0;
For i:=1 to n do
If A[i]=max then inc(d);
Writeln(‘DTB la: ‘,s/n:0:2);
Write(‘Co ‘,d,’ thu khoa’);
Readln
End.