Viết chương trình nhập dãy số gồm n số nguyên nhập thêm 1 số và chèn thêm nó vào dãy sau phần tử k

0 bình luận về “Viết chương trình nhập dãy số gồm n số nguyên nhập thêm 1 số và chèn thêm nó vào dãy sau phần tử k”

1. uses crt;
   var n,i,k,m:longint;
       a:array[1..10000] of longint;
   BEGIN
           clrscr;
           write(‘nhap n: ‘);readln(n);
           write(‘nhap k: ‘);readln(k);
           write(‘nhap so can chen: ‘);readln(m);
            for i:=1 to n do
              begin
                   write(‘a[‘,i,’] = ‘);readln(a[i]);
              end;
            for i:=1 to k do write(a[i],’ ‘);
           write(m,’ ‘);
            for i:=k+1 to n do write(a[i],’ ‘);
           readln;
   END.

   Miễn sao output đúng là được :)))

   Bình luận

2. Program Hotboy;

   Uses crt! 

   Var A:array[1..100] of integer;

   I,n,k : integer;

   Begin

   Clrscr ;

   Write(‘nhao so phan tu trong day’); readln(n);

   For i:=1 do n do 

   Begin

   Write(‘A[‘,i,’]’); readln(A[i]); 

   End;

   Write(‘vi tri chen ‘); readln(k);

   For i:=n+1 downto k+1 do

   A[i] :=A[i-1];

   Write(‘nhap so can chen’); readln(A[i]);

   For i:=1 to n+1 do 

   Write(A[i]);

   Readln

   End.

   Bình luận