Giải thuật toán cho N nguyên và day so a1…an. tìm vị trí của tất cả các số nguyên dương trong dãy

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.