Viết chương trình áp dụng quản lí điểm trung bình cả năm của các bạn học sinh khối 11( vài bạn thôi) với nội dung như sau : -Nhập xuất điểm cho học sinh của khối 11 - Thống kê số lượng học sinh thi đậu và thi lại -Sắp xếp điểm của các bạn theo chiều tăng dần

program Taylor;
uses crt;
var n,i,j,dl,dd:longint; a:array[1..10000000]of real; t:real;
begin
clrscr;
   write('Nhap so hoc sinh: ');readln(n);
   for i:=1 to n do
      begin
         write('So diem trung binh cua ban thu ',i,': ');readln(a[i]);
         if a[i]<3 then inc(dl) else inc(dd);
      end;  writeln;
   for i:=1 to n do writeln('So diem trung binh cua ban thu ',i,': ',a[i]:0:2);
   writeln('Thi dau: ',dd);
   writeln('Thi lai: ',dl);
   for i:=1 to n do
      for j:=1 to i do
            if a[i]<a[j] then
               begin
                  t:=A[I];
                  a[i]:=a[j];
                  a[j]:=t;
               end;
   for i:=1 to n do write(a[i]:0:2,' ');
readln
end.

uses crt;

var a:array[1..10]of integer;

i,n,tb:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 10 do 

  if a[i]>=8 then write(a[i]:4);

tb:=0;

for i:=1 to 10 do 

  tb:=tb+a[i];

writeln;

writeln('Diem trung binh cua 10 ban la: ',tb:4:2);

readln;

end.