6, 7, 8: 

Dùng toán tử :WHILE   DO

i:=1;

While ((i<=n)and(a[i]<=0)) Do inc(i);

Ra khỏi vòng lặp i chính là vị trí của số dương đầu tiên .

- Chương trình 6 :

uses crt;

var A : array [1 .. 100] of integer;

    i, n, k : integer;

begin

clrscr;

write('Nhap so luong phan tu = '); readln(n);

write('Nhap day gom ', n ,' so : ');

for i := 1 to n do read(A[i]);

k := 0; for i := n downto 1 do

   if A[i] < 0 then k := i;

if k = 0 then write('Day khong co so am')

else write('Chi so cua so am dau tien = ', k);

readln

end.

- Chương trình 7 :

uses crt;

var A : array [1 .. 100] of integer;

    i, n, k : integer;

begin

clrscr;

write('Nhap so luong phan tu = '); readln(n);

write('Nhap day gom ', n ,' so : ');

for i := 1 to n do read(A[i]);

k := 0; for i := 1 to n do

   if A[i] > 0 then k := i;

if k = 0 then write('Day khong co so duong')

else write('Chi so cua so duong cuoi cung = ', k);

readln

end.

- Chương trình 8 :

uses crt;

var A : array [1 .. 100] of integer;

    i, n, k : integer;

begin

clrscr;

write('Nhap so luong phan tu = '); readln(n);

write('Nhap day gom ', n ,' so : ');

for i := 1 to n do read(A[i]);

k := 0; for i := 1 to n do

   if A[i] < 0 then k := i;

if k = 0 then write('Day khong co so am')

else write('Chi so cua so am cuoi cung = ', k);

readln

end.