uses crt; var i,x,n:integer; k:boolean; a : array [1..1000] of integer; begin clrscr; write('Nhap n : ');readln(n); for i:= 1 to n do begin write('Nhap a[',i,'] : ');readln(a[i]); end; write('Nhap x : ');readln(x); k:=false; for i:=1 to 10 do if a[i] = x then k:=true; if k = true then write('Phan tu ',x,' co xuat hien trong day')
else write('Khong co ',x,' trong day'); readln; end.
Uses Crt; Type Mang = ARRAY[1..50] Of Integer; Var A:Mang; N,i,x:Integer; Function TimKiem(x, N: Integer; A:Mang):Integer; Var i:Integer; Begin i:=1; While (i <= N) and (X<>A[I]) do i:=i+1; If i <= N Then Timkiem:=i Else Timkiem:=0; End; Begin Write(‘Nhap N=’); Readln(N); For i:=1 To N Do Begin Write(‘A[‘,i,’]=’); Readln(A[i]); End; Write(‘Nhap X=’); Readln(x); If TimKiem(X,N,A)<>0 Then Writeln(‘Vi tri cua X trong mang la:’, TimKiem(X,N,A)) Else Writeln(‘X khong co trong mang.’); Readln; End.
