uses crt;

var a,b,c,d:array[1..100] of integer;

n,i,h,j,k:integer;

begin

clrscr;

write('nhap so phan tu: '); readln(n);

for i:= 1 to n do 

begin

write('A[',i,']: ');

readln (a[i]);

end; 

j:= 0;

write ('cac so nguyen duong la : ')

for i := 1 to n do if a[i] > 0 then write(a[i],' ');

writeln;

write ('cac so nguyen am la : ')

for i := 1 to n do if a[i] < 0 then write(a[i],' ');

writeln;

write ('vi tri cua cac so 0 la : ')

for i := 1 to n do if a[i] = 0 then write(i,' ');

readln

end.

uses crt;
var i,n:longint; a:array[1..100000]of longint;
begin
clrscr;
   write('Nhap n: ');readln(n); 
   for i:=1 to n Do 
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
      end;
   write('Cac so nguyen duong co trong mang: ');
   for i:=1 to n do if a[i]>0 then write(a[i],' '); writeln;
   write('Cac so nguyen am co trong mang: ');
   for i:=1 to n do if a[i]<0 then write(a[i],' '); writeln;
   write('Vi tri cac so 0 co trong mang: ');
   for i:=1 to n do if a[i]=0 then write(i,' ');
readln
end.