Viết chương trình Nhập vào một số nguyên x kiểm tra x có xuất hiện trong dãy số hay không

0 bình luận về “Viết chương trình Nhập vào một số nguyên x kiểm tra x có xuất hiện trong dãy số hay không”

1. 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.

   Bình luận

2. 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.

   Bình luận