Uses crt;
Var n: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        For i:=1 to n do
                If A[i]>=0 then
                Begin
                        Write('A[',i,'] ');
                        Writeln;
                End;
        Readln
End.

$\text{- Thuật toán tìm vị trí các số nguyên dương :}$

$\text{+ Bước 1 : Nhập số nguyên N và phần tử A1, A2, ... , AN}$

$\text{+ Bước 2 : i ← 1}$

$\text{+ Bước 3 : Nếu i > N thì kết thúc}$

$\text{+ Bước 4 : }$

$\text{+ Bước 4.1 : Nếu A[i] > 0 thì đưa ra giá trị i}$

$\text{+ Bước 4.2 : i ← i + 1 quay lại bước 3}$