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)
2 câu trả lờ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 ~
uses crt;
var a : array [1..50] of real;
i, x, d: integer;
begin
clrscr;
write('Nhap so x : '); readln(x);
d := 0;
for i := 1 to x do
begin
write('Nhap diem hoc sinh thu ', i ,' : '); readln(a[i]);
if a[i] >= 8 then d := d + 1;
end;
write('Co ', d ,' hoc sinh gioi Tin hoc');
readln
end.
Câu hỏi trong lớp
Xem thêm