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ó trong mảng A hay không?
2 câu trả lời
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
{Nhập mảng}
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
Write(‘Nhap X=’); Readln(x);
{Kết quả tìm kiếm}
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.
Program baitap;
Uses crt;
Var A:array[1..200] of integer;
N,X,dem: integer;
Begin
Clrscr;
dem:=0;
Write('Nhap N:'); Readln(N);
Write('Nhap X:'); Readln(X);
Writeln('Nhap cac phan tu:');
For i:=1 to N do
Begin
Write('A[',i,']=');
Readln(A[i]);
End;
For i:=1 to N do If A[i]=X then dem:=dem+1;
If dem>0 then writeln('Phan tu X co trong mang va co ',dem,' lan')
else writeln('Phan tu X khong co trong mang');
Readln;
End.
