Cho dãy số nguyên gồm n số a1, a2,..an và số nguyên k. Tìm xem trong dãy số nguyên có tồn tại giá trị k hay không, nếu có thì thông báo vị trí k nếu không có thì thông báo không tồn tại giá trị k trong dãy
(Lưu ý: Diễn đạt theo ngôn ngữ bình thường thôi ạ chứ không cần viết chương trình pascal đâu, em cảm ơn)
B1.Nhập n,k;
B2.vị trí =0;
B3.Chạy i từ 1 đến n:
-Nhập a[i]
-Nếu k=a[i] thì vị trí=i
B3.Nếu vị trí khác 0:
-Xuất vị trí;
Không thì:
-Thông báo vị trí không tồn tại;
Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
n,i,k,d,dk: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
Write(‘Nhap k: ‘); Readln(k);
d:=0; dk:=0;
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
If A[i]=0 then inc(d);
If A[i]=k then inc(dk);
End;
If dk<>0 then Write(‘Vi tri: ‘)
Else Write(‘Khong co’);
For i:=1 to n do
If A[i]=k then Write(i,’ ‘);
Writeln;
Write(‘Co ‘,d,’so bang 0’);
Readln
End.