Mình làm hơi vội nên có gì sai thì bạn thông cảm nha. =))))
uses crt; var a: array[-500..500] of integer; i,n,cs:byte; begin clrscr; write('Nhap so cac so: '); readln(n); cs:=0; for i:=1 to n do begin write('a[',i,']:'); readln(a[i]); end; for i:=1 to n do begin cs:=cs+1; if a[i]<0 then begin write('Phan tu am dau tien o vi tri: ',cs); break; end; end; if a[i]>=0 then write('-1'); readln; end.
