viết chương trình nhập vào điểm toán các bạn trong lớp. đếm xem có bao nhiêu bạn trên trung bình

Question

tuyetanhthu · Answer

program BT;

uses crt;

var n,i,d: integer;

toan: real;

Begin

clrscr;

write(‘Nhap so ban trong lop: ‘); readln(n);

for i:=1 to n do

begin

write(‘Nhap diem ban thu ‘,i,’: ‘); readln(toan);

if toan>5 then d:=d+1;

end;

write(‘Co ‘,d,’ ban tren TB’);

readln

End.

0 bình luận về “viết chương trình nhập vào điểm toán các bạn trong lớp. đếm xem có bao nhiêu bạn trên trung bình”