Viết chương trình nhập vào một mảng A gồm n số nguyên và nhập thêm vào một số nguyên x. Hãy kiểm tra xem phần tử x có nằm trong mảng A hay không?
Viết chương trình nhập vào một mảng A gồm n số nguyên và nhập thêm vào một số nguyên x. Hãy kiểm tra xem phần tử x có nằm trong mảng A hay không?
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,x: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
WriteIn(‘Vi tri cua X trong mang la:’, TimKiem(X,N,A))
Else Writeln(‘X khong co trong mang.’);
Readln;
End.
*Chúc bạn học tốt! ^_^ Cấm sao chép bài mình!
program ct;
uses crt;
var A:array[1..1000] of integer;
i,n,x:integer;
begin clrscr;
write(‘Nhap so phan tu n: ‘); readln(n);
for i:=1 to n do
begin
writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);
end;
writeln(‘Nhap so x’); readln(x);
for i:=1 to n do
if A[i]=x then writeln(x,’ co nam trong mang A’)
else writeln(x,’ ko nam trong mang A’);
readln;
end.
Học tốt!