viết chương trình nhập điểm tin của các bạn trong lớp và đếm có bao nhiêu học sinh giỏi , khá , tủng bình , yếu , kém
2 câu trả lời
program Oken;
uses crt;
Var i, n,Gioi,Kha,Trungbinh,Kem:integer;
A: array[1..100] of real;
begin
clrscr;
write('Nhap so ban can nhap diem mon tin: '); readln(n);
writeln('Nhap diem cac ban');
for i:=1 to n do
begin
write('Diem ban thu ',i,': ');
readln(a[i]);
end;
Gioi:=0; Kha:= 0; Trungbinh:= 0; Kem:= 0;
for i:=1 to n do
begin if (a[i] >= 8.0) then Gioi:= Gioi + 1;
if (a[i]<5.0) then Kem:=Kem+1;
if (a[i] <8.0 ) and (a[i] >=6.5) then Kha:= Kha + 1;
if (a[i] >= 5.0 ) and (a[i] < 6.5) then Trungbinh:= Trungbinh + 1;
end;
writeln(' Ket qua hoc tap: ');
writeln(Gioi, ' ban hoc gioi ');
writeln(Kha, ' ban hoc kha ');
writeln(Trungbinh, ' ban hoc trung binh');
writeln(Kem, ' ban hoc kem ');
readln;
End.
uses crt;
var a : array[1..100] of real;
i, n, b1, b2, b3, b4, b5 : byte;
begin
clrscr;
write('Nhap so hoc sinh : '); readln(n);
b1 := 0; b2 := 0; b3 := 0; b4 := 0; b5 := 0;
for i := 1 to n do
begin
write('Nhap diem hoc sinh thu ', i ,' : ');
readln(a[i]);
if a[i] >= 8 then b1 := b1 + 1;
if (a[i] < 8) and (a[i] >= 6.5) then b2 := b2 + 1;
if (a[i] < 6.5) and (a[i] >= 5) then b3 := b3 + 1;
if (a[i] < 5) and (a[i] >= 3.5) then b4 := b4 + 1;
if a[i] < 3.5 then b5 := b5 + 1;
end;
writeln('Co ', b1,' hoc sinh gioi');
writeln('Co ', b2,' hoc sinh kha');
writeln('Co ', b3 ,' hoc sinh trung binh');
writeln('Co ', b4 ,' hoc sinh yeu');
writeln('Co ', b5,' hoc sinh kem');
readln
end.