Bài toán thiếu dữ liệu để giải:

-Số học sinh(hoặc tỉ lệ)

-Số điểm từng học sinh

@linhh

@Bulletproof.Boy.Scout

Var T,S,Su,Tin,Van,D,L,H,CN,GD,A,dtb:real;

Begin

         Writeln('Nhap vao diem toan:');Readln(T);

         Writeln('Nhap vao diem van:');Readln(Van);

         Writeln('Nhap vao diem su:');Readln(Su);

         Writeln('Nhap vao diem dia:');Readln(D);

         Writeln('Nhap vao diem gd:');Readln(GD);

         Writeln('Nhap vao diem li:');Readln(L);

         Writeln('Nhap vao diem hoa:');Readln(H);

         Writeln('Nhap vao diem S:');Readln(S);

         Writeln('Nhap vao diem cn:');Readln(CN);

         Writeln('Nhap vao diem anh:');Readln(A);

         dtb:=Van+Su+D+GD+L+H+S+CN+A;

If dtb>5 then write('Duoc Len Lop'); else

If dtb<4,9 then write('Thi Lai') else

If dtb<3,5 then write('O Lai Lop');

Readln

end;