Viết chương trình nhập vào điểm bình quân các môn học và in ra màn hình điểm các môn vằu học
1 câu trả lời
uses crt;
var i,n,kha,gioi,kem,tb:integer;
a : array [1..1000] of real;
begin
clrscr;
writeln('Nhap so hoc sinh cua lop:');readln(n);
kha:=0;gioi:=0;kem:=0;tb:=0;
writeln('Nhap diem cua cac ban:');
for i := 1 to n do
begin
write('Ban thu ',i,': ');readln(a[i]);
if a[i] >= 8 then gioi := gioi + 1;
if (a[i] >= 6.5) and (a[i] < 8) then kha := kha + 1;
if (a[i] >= 5) and (a[i] < 6.5) then tb := tb + 1;
if a[i] < 5 then kem := kem + 1
end;
writeln;
writeln('So ban diem gioi la: ',gioi);
writeln('So ban diem kha la: ',kha);
writeln('So ban diem trung binh la: ',tb);
writeln('So ban diem kem la: ',kem);
readln;
end.
Câu hỏi trong lớp
Xem thêm