Cho N là số học sinh và dãy D: d1,d2...dn là bảng điểm tổng kết của lớp đó (N <= 35)
a, Nhập N và dãy D từ bàn phím
b, Tìm điểm tổng kết bình quân của lớp
c, Tìm điểm tổng kết nhỏ nhất
d, Tính tỉ lệ học sinh có điểm tổng kết bé hơn điểm bình quân
e, Thông báo kết quả ra màn hình
Mn giúp e với ạ. Em đang cần gấp ạ.
Program hotrotinhoc_hoc24;
var d: array[1..35] of real;
i,n: integer;
t,min2,min,bq: real;
begin
write('Nhap so hoc sinh : '); readln(n);
t:=0; min:=32000;
for i:=1 to n
begin
write('d[',i,']='); readln(d[i]);
t:=t+a[i];
if a[i]<min then min:=a[i];
end;
bq:=t/n;
min2:=32000;
for i:=1 to n do
if (a[i]<min2) and (a[i]<bq) then
begin
inc(d);
min2:=a[i];
end;
writeln('Tong ket qua binh quan cua lop la : ',bq:1:1);
writeln('Diem tong ket nho nhat la : ',min:1:1);
writeln('Ti le hoc sinh co diem tong ket be hon diem binh quan la : ',min2:1:1);
readln
end.
