Tin học Sắp xếp mảng

[Tu1601]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Mọi người giúp em bài này với:
Nhập một mảng gồm n sô nguyên nhập từ bàn phím. Đếm, in, tính tổng các phần tử lẻ và âm. Sắp xếp mảng theo quy tắc:
a1 = an/2 - 1
a2 = an/2 - 2

 

[Trâm Nguyễn Thị Ngọc]

Nhập một mảng gồm n sô nguyên nhập từ bàn phím. Đếm, in, tính tổng các phần tử lẻ và âm.
Bài này nếu thực hiện trong 1 vòng lặp cũng đc, em chia ra cho dễ in

Var
   a:array[1..100] of integer;
   i,n,t1,t2,d1,d2:integer;
Begin
  write('nhap vao so pt cua mang:');readln(n);
  For i:=1 to n do
    begin
      write('a[',i,']=');
      readln(a[i]);
    end;
  write('cac pt am trong mang la:');d1:=0;d2:=0;t1:=0;t2:=0;
  For i:=1 to n do
   if a[i]>=0 then
     begin
       write(a[i],'  ');
       d1:=d1+1;
       t1:=t1+a[i];
     end;
  writeln('...................:',d1,'  ',t1);
  write('cac pt am trong mang la:');
  For i:=1 to n do
   if a[i]<0 then
     begin
       write(a[i],'  ');
       d2:=d2+1;
       t2:=t2+a[i];
     end;
 write('.............................:',d2,'    ',t2);
 readln
End.

Em không hiểu đề cái ý thứ 2 lắm, anh giải thích rõ đc không ạ. Cho VD nữa thì càng tốt