viết chương trình nhập một dãy n số và in ra màn hình các câu sau số dương nhỏ nhất số dương bé nhất số âm nhỏ nhất số âm bé nhất Nhớ là tất cả các câ

uses crt;
var i,n,min,min1,vt,vt1:longint; a:array[1..100000]of longint;
begin
clrscr;
   write(‘Nhap n: ‘);readln(n); 
   min:=high(longint); min1:=0;
   for i:=1 to n Do 
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
         if (a[i]>0)and(a[i]<min) then 
            begin vt:=i; min:=a[i]; end;
         if (a[i]<0)and(a[i]<min1) then 
            begin vt:=i; min1:=a[i]; end;
      end;
   writeln(‘Vi tri so duong nho (be) nhat: ‘,vt,’. So do la: ‘,min);
   writeln(‘Vi tri so am nho (be) nhat: ‘,vt,’. So do la: ‘,min1);
readln
end.