Một lớp gồm N (N không quá 60) học sinh. Cần quản lí học sinh với các thuộc tính như họ và tên, ngày sinh, địa chỉ, điểm toán, điểm văn, xếp loại. Giả sử việc xếp loại được xác định như sau:

Dưới đây là chương trình nhập vào từ bàn phím thông tin của từng học sinh trong lớp, thực hiện xếp loại và đưa ra màn hình kết quả xếp loại học sinh:

program Xep_loai;

uses crt;

constMax = 60;

type HocSinh = record

HoTen:string[30];

NgaySinh:string[10];

DiaChi:string[50];

Toan,Van:real;

XepLoai:char;

end;

var

    Lop: array[1..Max] of HocSinh;

     N,i: Byte;

begin

   clrscr;

   write(‘So luong hoc sinh trong lop N = ‘); readln(N);

   for i:= 1 to N do

         begin

               writeln(‘Nhap so lieu ve hoc sinh thu ‘,i,’: ‘);

               write(‘Ho va ten: ‘);readln(Lop[i].HoTen);

               write(‘Ngaysinh: ‘);readln(Lop[i].Ngaysinh);

               write(‘Dia chi: ‘);readln(Lop[i].DiaChi);

               write(‘Diem Toan: ‘);readln(Lop[i].Toan);

               write(‘Diem Van: ‘);readln(Lop[i].Van);

               if Lop[i].Toan+Lop[i].Van>=18

                     then Lop[i].XepLoai:=’A’;

               if (Lop[i].Toan+Lop[i].Van>=14)And

                     (Lop[i].Toan+Lop[i].Van

                     then Lop[i].XepLoai:=’B’;

               if (Lop[i].Toan+Lop[i].Van>=10)And

                     (Lop[i].Toan+Lop[i].Van

                     then Lop[i].XepLoai:=’C’

                     else Lop[i].XepLoai:=’D’;

 end;

         clrscr;

         writeln(‘Danh sach xep loai hoc sinh trong lop:’);

         for i:= 1 to N do

                writeln(Lop[i].HoTen:30,’ – Xep loai: ‘,Lop[i].XepLoai);

readln

end.