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.

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

Viết một bình luận