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,x,dem:integer;
         a:array[1..50] of integer;
    begin
            clrscr;
            readln(n);
            readln(x);
            dem:=0;
            for i:=1 to n do
            if a[i] >= x then dem:=dem+1;
            write(dem);
            readln
    end.

    Bình luận
  2. program dem_xuat_hien;

    uses crt;

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

          n,i,x,d:integer;

    begin

           clrscr;

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

           for i:=1 to n do

                  begin

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

                  end;

           write(‘Day so nguyen do la: ‘);

           for i:=1 to n do

                  write(A[i],’ ‘);

           writeln;

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

           d:=0;

           for i:=1 to n do

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

           write(‘So lan xuat hien cua ‘,x,’ la: ‘,d);

           readln;

    end.

    Bình luận

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