Program BTT;
Uses crt;
Var A: array[1..100] 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
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        For i:=1 to n do
                If A[i]=k then
                Begin
                        Write(i,' ');
                        inc(d);
                End;
        If d=0 then Write('Khong co so hang bang k');
        Readln
End.

$\text{Input: N và dãy số }$

$\text{Output : chỉ ra số A[i] = k hoặc thông báo không có }$

$\text{Xây dựng ý tưởng }$

+ $\text{B1: Nhập $n và k$}$

+ $\text{B2:Cho biến i chạy từ 1 đến n => lần lượt nhập n số đó }$

+$\text{B3: tiếp tục cho biến i chạy từ 1 đến n => nếu $A[i] = k $ thì in ra màn hình A[i] nếu không có thì in ra màn hình thông báo }$

+ $\text{B4: in ra kết quả và kết thúc thuật toán}$

- Sơ đồ khối thì bạn dựa vào thuật toán bằng pp liệt kê để làm nha ._. Mình không thạo cái này 

+ Chương trình 

Program Hotboy; 

Uses crt;

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

    N,k: real;

Begin

        Clrscr;

        Write('Nhap so phan tu : '); Readln(n);

Write('nhap vao so k'); readln(k);

        For i:=1 to n do

        Begin

                Write('A[',i,'] = ');

                Readln(A[i]);

        End;

        For i:=1 to n do

                If A[i]=k then 

                    Write('so hang bang k la A[',i,']') else write('khong co so nao bang k');

          Readln

End.