- Thuật toán:

Bước 1: Nhập k, n và dãy A[1..n]

Bước 2: i ← 1 to n do Nếu a[i] = k thì xuất a[i] ra màn hình

Bước 3: Kết thúc thuật toán

- Chương trình:

Uses crt;
Var n, k: integer;
      A:Array[1..100] of longint;
Begin
     Clrscr;
     Write('Nhap n = '); readln(n);
     For i:=1 to n do 
        Begin
           Write('A[',i,']=');
           Readln(A[i]);
        End;
     Write('Nhap k = '); readln(k);
     For i:=1 to n do if a[i] = k then writeln(a[i],' ');
     Readln
End.

Program NN;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,k,d: longint;
Begin
        Clrscr;
        Write('Nhap n,k: '); Readln(n,k);
        d:=0;
        For i:=1 to n do
        Begin
                Read(A[i]);
                If A[i]=k then inc(d);
        End;

        If d=0 then Write('Khong ton tai')
        Else
        Begin
                Write('Vi tri cua so k: ');
                For i:=1 to n do
                        If A[i]=k then Write(i,' ');
        End;
        Readln
End.