Vct nhập số n, nhập vào một số nguyên x, kiểm tra xem x có trong mãng hay ko nếu có thì xuất hiện bao nhiêu lần!

0 bình luận về “Vct nhập số n, nhập vào một số nguyên x, kiểm tra xem x có trong mãng hay ko nếu có thì xuất hiện bao nhiêu lần!”

1. program ct;

   uses crt;

   var A:array[1..1000] of integer;

         i,n,x,d:integer;

   begin clrscr;

      write(‘Nhap so phan tu: ‘); readln(n);

      for i:=1 to n do

        begin

           write(‘Nhap A[‘,i,’]: ‘); readln(A[i]);

        end;

      write(‘Nhap x: ‘); readln(x);

      for i:=1 to n do

         if x=A[i] then inc(d);

      if d<>0 then write(x,’ xuat hien trong mang ‘,d,’ lan’);

                    else write(x,’ khong xuat hien trong mang’);

   readln;

   end.

   Bình luận

2. uses crt;
   var x,n,i,dem:longint; a:array[1..100000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      write(‘x=’);readln(x);
      for i:=1 to n do
         begin
            write(‘Phan tu thu ‘,i,’ cua mang: ‘);readln(a[i]);
            if a[i]=x then inc(dem);
         end;
      if dem=0 then writeln(x,’ khong co trong mang.’) else
      writeln(x,’ xuat hien ‘,dem,’ lan.’);
   readln
   end.

   //////////////////////////////////

   Test:

   

   Bình luận