$\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.
