Bài 4: Cho dãy số nguyên gồm n số a1, a2,..an và số nguyên k
a) 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
b) Đếm xem trong dãy có bao nhiêu số tự nhiên có giá trị bằng không?
Ai giúp mình với. Mình chân thành cảm ơn
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.