Question

viết chương trình thực hiện các nhiệm vụ sau đây:

a)Nhập vào từ bàn phím điểm trung bình của n học sinh trong một lớp (1≤n≤100)

b)In ra màn hình số lượng và tỉ lệ học sinh đạt điểm trung bình trở lên(điểm trung bình≥5,0)

Answer 1

uses crt;

var i,d,n:byte;

a:array[1..10]of real;

begin

write('nhap si so lop :');readln(n);

d:=0;

for i:=1 to n do begin

write('nhap diem tb ban thu ',i,' );readln(a[i]);

if a[i]>5.0 then d:=d+1;

end;

writeln('so luong hs dat diem tb tro len la:',d);

writeln('ti le hs dat diem tb tro len la :', (d/n)*100);

readln

end.

Answer 2

uses crt;
var i,n,d:longint;
a:array[1..100] of real;
d1:real;
begin
clrscr;
write('Nhap so hoc sinh trong mot lop: '); readln(n);
for i:=1 to n do
begin
write('Diem trung binh cua hoc sinh thu ',i,' la: ');readln(a[i]);
end;
for i:=1 to n do
if a[i]>=5 then inc(d);
writeln('So luong hoc sinh dat diem trung binh tro len la: ',d);
d1:=d/n*100;
write('Ti le hoc sinh dat diem trung binh tro len la: ',d1:0:0,'%');
readln
end.