- Bài toán: tìm chỉ số i trong mảng sao cho ai =k

- Ý tưởng:

var k;//Giá trị k cần tìm kiếm

array day_so;// mảng chứa dữ liệu

var n = length(day_so);

var tim_thay_kq = false;//Giả định ban đầu không tìm thấy kq

var i =0;

for(i tăng dần từ 1-n):

if(day_so[i]==k){

tim_thay_kq = true;

Thoát khỏi vòng lặp.

}

end for;

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