Viết chương trình cho nhập x bạn học sinh với điểm trung bình môn Tin học, x là số học sinh đc nhập từ bàn phím. In ra màn hình có bao nhiêu bạn học giỏi môn Tin học ( 8,0 trở lên là giỏi)
Viết chương trình cho nhập x bạn học sinh với điểm trung bình môn Tin học, x là số học sinh đc nhập từ bàn phím. In ra màn hình có bao nhiêu bạn học giỏi môn Tin học ( 8,0 trở lên là giỏi)
Program Tin_hoc;
uses crt;
var i,n,k:integer;
A : array [1..10000] of integer;
begin
clrscr;
write(‘Nhap so ban HS: ‘);readln(n); k:=0;
writeln(‘Nhap diem TB mon Tin hoc cua ‘,n,’ ban HS:’);
for i:= 1 to n do
begin
write(‘Ban thu ‘,i,’: ‘);
readln(A[i]);
if A[i] >=8 then k:=k+1;
end;
writeln(‘Co ‘,k,’ ban hoc sinh hoc gioi mon Tin hoc’);
readln;
end.
#NoCopy__~Chúc Bạn Học Tốt Môn Tin~
~ Cho Mik Xin Câu TLHN nha ~ Cảm ơn nhiều ~