program Min;
uses crt;
var A:array[1..100] of integer;
    n,i,dem1,dem2,tong1,tong2:integer;
begin
   clrscr;
   dem1:=0; dem2:=0; tong1:=0; tong2:=0;
   write('Nhap n: ');
   readln(n);
   for i:=1 to n do
   begin
      write('Nhap so hang thu ',i,' : ');
      readln(A[i]);
   end;
   writeln('Vi tri cac so duong: ');
   for i:=1 to n do
   begin
      if A[i]>=0 then
      begin
         write(i:4); {Vị trí số dương}
         inc(dem1); {Đếm số dương}
         tong1:=tong1+A[i]; {Tổng các số dương}
      end;
    end;
    writeln;
    writeln('Tong cac so duong la: ',tong1);
    writeln('Co ',dem1,' so duong');
    writeln;
    writeln;
    writeln('Vi tri cac so am: ');
    for i:=1 to n do
    begin
       if A[i]<0 then
       begin
          write(i:4); {Vị trí số âm}
          inc(dem2); {Đếm số âm}
          tong2:=tong2+A[i]; {Tổng các số âm}
       end;
    end;
    writeln;
    writeln('Tong cac so am la: ',tong2);
    writeln('Co ',dem2,' so am');
    readln
end.

Cả 6 bài mình viết chung vào một chương trình rồi nhé :D