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.
