Viết chương trình nhập điểm các bạn trong lớp sau đó in ra màn hình xếp loại học lực.

0 bình luận về “Viết chương trình nhập điểm các bạn trong lớp sau đó in ra màn hình xếp loại học lực.”

1. uses crt;
   var a:array[1..100] of integer;n,i,gioi,kha,trungbinh,kem:integer;
   begin
       clrscr;
       write(‘Nhap so luong hoc sinh: ‘); readln(n);
       gioi:=0;kha:=0;trungbinh:=0;kem:=0;
       writeln(‘Nhap so diem tung hoc sinh: ‘);
       for i:=1 to n do
           readln(a[i]);
       for i:=1 to n do
           begin
               case a[i] of
                   8..10:gioi:=1+gioi;
                   6..7:kha:=1+kha;
                   5:trungbinh:=1+trungbinh;
                   0..4:kem:=1+kem;
               end;
           end;
       writeln(‘Gioi: ‘,gioi,’HS, Kha: ‘,kha,’HS, Trungbinh: ‘,trungbinh,’HS, Kem: ‘,kem,’HS.’);
   readln;
   end.

   Bình luận