Question

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 lớn nhất

d, Tính tỉ lệ học sinh có điểm tổng kết lớn 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 ạ.

Answer 1

uses crt;

var d:array[1..35]of real;

t,tkbq,max:real;

n,i,dem:integer;

begin

clrscr;

repeat

write('nhap n='); readln(n);

until (1<=n) and (n<=35);

for i:=1 to n do

begin

repeat

write('D[',i,']='); readln(d[i]);

until (0<=d[i]) and (d[i]<=10);

end;

t:=0;

for i:=1 to n do

t:=t+d[i];

tkbq:=t/n;

writeln('Diem tong ket binh quan la: ',tkbq:4:2);

max:=d[1];

for i:=1 to n do

if max<d[i] then max:=d[i];

writeln('Diem tong ket lon nhat la: ',max:4:2);

dem:=0;

for i:=1 to n do

if d[i]>tkbq then inc(dem);

writeln('Ti le hoc sinh co diem tong ket lon hon diem binh quan la: ',dem/n:4:2);

readln;

end.