Question

nhập số x kiểm tra số đó có trong dãy vừa nhập hay không ,Chèn số x vào dãy số vẫn đảm bảo tính tăng dần

giúp mik vs ạ!cảm ơn!

 

Answer 1

program ChenSoX;

var

     i, j, n, x: integer;

     a: array[1..100] of integer;

begin

     write('Nhập số phần tử trong dãy số: ');

     read(n);

     for i:=1 to n do

     begin

          write('Nhập phần tử thứ ', i, ' của dãy số: ');

          read(a[i]);

     end;

     write('Nhập số x cần kiểm tra và chèn vào dãy số:');

     read(x);

     i := 1;

     while (i <= n) and (a[i] < x) do

          i := i + 1;

     if (i <= n) and (a[i] = x) then

          writeln('Số ', x, ' đã có trong dãy số')

     else

     begin

          for j:=n downto i+1 do

               a[j] := a[j-1];

          a[i] := x;

          writeln('Dãy số mới:');

          for i:=1 to n+1 do

               write(a[i], ' ');

     end;

     readln;

end.