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.