em hãy nhập vào 1 dãy số nguyên n và in ra dãy số nguyên đó.hãy nhập vào 1 giá trị x bất kì (x số nguyên) và cho biết số nguyên x xuất hiện bao lần tr

em hãy nhập vào 1 dãy số nguyên n và in ra dãy số nguyên đó.hãy nhập vào 1 giá trị x bất kì (x số nguyên) và cho biết số nguyên x xuất hiện bao lần trong dãy số đó

0 bình luận về “em hãy nhập vào 1 dãy số nguyên n và in ra dãy số nguyên đó.hãy nhập vào 1 giá trị x bất kì (x số nguyên) và cho biết số nguyên x xuất hiện bao lần tr”

  1. uses crt;
    var i,n,d,x:longint; a:array[1..100000]of longint;
    begin
    clrscr;
       write(‘Nhap n: ‘);readln(n); 
       for i:=1 to n Do 
          begin
             write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
          end;
       write(‘Day so nguyen do: ‘);
       for i:=1 to n Do write(a[i],’ ‘); writeln;
       write(‘Nhap x: ‘);readln(x);
       for i:=1 to n do 
          if a[i]=x then inc(d);
       writeln(‘x xuat hien ‘,d,’ lan trong day’);
    readln
    end.

    Bình luận
  2. program in_va_dem;

    uses crt;

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

         n,i,x,d:integer;

    begin

           clrscr;

           write(‘Nhap so nguyen n: ‘);  readln(n);

           for i:=1 to n do

                  begin

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

                  end;

           write(‘Day so la: ‘);

           for i:=1 to n do write(A[i],’ ‘);

           writeln;

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

           d:=0;

           for i:=1 to n do

                  if A[i]=x then d:=d+1;

           writeln(‘So nguyen ‘,x,’ xuat hien ‘,d,’ lan’);

           readln;

    end.

    Bình luận

Viết một bình luận