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

Question

tuenhi · Answer

program BT;

uses crt;

var n,i: integer;

toan,T: 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 T:=T+toan;

end;

write(‘Tong ‘,n,’ ban co diem toan tren TB = ‘,T:2:2);

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.tính tong các bạn có điểm số trên trung bình”